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Preface 



This manual describes the Inte'^rated Data Store (I-D— S) system, which is 
an information-oriented method of integrating the operating function of a 
business. I-D-S reduces the system and programming cost associated with 
implementing some other types of integrated business systems. It uses 
direct-access storage as an extension of memory and provides an efficient 
data organization technique. 

Since I-D-S is used to extend the functions of the COBOL language, the 
reader should have a working knowledge of COBOL before using this manual. 

The I-D-S program is identified by catalog numbers CD600H5.100 and 
CD600H7.000 in the Program Library. 
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1. Introduction 



Integrated Data Store (I-D-S) is an information-oriented method of 
integrating the operating functions of a business. Its use reduces the 
high systems and programming costs associated with implementing some 
other types of integrated business systems. As a general-purpose system, 
it uses mass random access storage as an extension of memory and 
provides an efficient data organization technique. In addition, a simple 
but effective language is used to operate the system. 

Present procedural languages offer programming convenience in field and 
sequential record processing. However, they are inadequate for 
processing records in the random environment of mass storage. The I-D-S 
language provides a simplified means for record processing in the 
environment of mass random access storage. 

Language statements such as those for read/write operations produce 
serial rather than random actions. Ordinarily, the burden of organizing 
data records and designing the logic involved in processing and 
maintaining these records is placed upon the programmer, liany of these 
processing and maintenance functions are performed automatically by the 
I-D-S software system. 



2. Data Organization 



Data organization refers to the interrecord relationships established 
within the I-D-S data-file. The record is the basic unit of data. Record 
association is achieved through chains which provide cross-reference 
linkages between records. These chains provide the integrating force 
which is implied in the name Integrated Data Store. 
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Figure 1. Chain Association 



I-D-S records are stored only once. Conventional approaches to file 
organization often require records, or certain fields in the records, to 
be repeated in several files. With the ability to integrate records into 
any number of chains (as required by the system) , the same data fields 
are available no matter which of its chains are processed. This 
technique has five important advantages : 



1. Additional space required for duplicate records is eliminated, 
resulting in a reduction in the total storage capacity 
required. 



The work of data maintenance is greatly reduced, as there is 
only one record to retrieve and modify. 

'Tho ^ossibili t^' that one cop^^ of a record will not be pronerlv 
modified is eliminated. Since there is only one copy, any 
incorrect information will be quickly recognized and corrected. 

All reports drawn from the file will be consistent, since there 
is only one set of facts (records) . 

Due to the linking capability, the homogeneity of a file needs 
no longer to exist and records of different types may be 
intermixed to achieve a better utilization of the storage 
capacity. 



i-D-S CHAINS 

An I-D-S chain is illustrated in Figure 2. 

All records in a chain are associated in a closed loop, with the last 
detail linked back to the master. Its characteristics are: 

Contains one master record and any number of detail 

records 
Links records together in an endless loop 
Associates related records in meaningful sequences 

Records are to be defined by the user as to their relationship v;ithin a 
chain — as master or detail records. These relationships are specified, 

when the chaining relationship is described, in the data description. 

A chain is a set of records that are linked together to form a logical 
relationship between records. 

A Master Record is the head of a set of records that make up a chain. 
There must be one and only one Master Record for each chain. Detail 
records are the other records that are members of the set or chain. 




Figure 2. I-U-S Chain 



Multiple Chains 

Chains exist for two separate but closely related reasons. First, the 
source documentation or problem analysis shows that a portion of the 
information is often cross-referenced. An example is a personnel record 
with a variable number of deductions and work experiences. 



This kind of information is easily structured by building a personnel 
mastet record type. Two chain types are created containing the personnel 
record as the master record. As many deduction records as necessary are 
linked into the deduction chain as details. Work experience for the 
employee involved is handled in a like manner. Both chains are now 
linked to the same master record, as shown in Figure 3. 



The second case involves the logical association of several source 
documents. Relating all the purchase order information for a given 
vendor to the vendor information is an example. A purchase order chain 
associates aj.j_ Oj. tue purchase order records with their vendor record. 

I-D-S chains have several structural aspects which should be emphasized: 

All similar chains are grouped by chain type. 

A chain type is named with a symbolic name. There v/ill be as many 
chains of the chain type as there are master records for that chain 
type. 

Each chain can have only one master record. Its type is the same 
for all chains of the same type. 

Any number of detail records may be in a chain. A chain may even 
contain more than one type of detail record. 

Detail records cannot be stored unless their master record already 
exists in the file. 

Whenever a master record is deleted, its entire chain is also 
removed. 
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Figure 3. Master Record of Two Chains 



The master record of the chain contains a code which references the 
first detail in the chain. 



A record may be defined to be a member in as many chains as are 
required. It may be defined as master in one chain and detail in 
another. 



A record cannot be defined as a detail to itself, directly or 
indirectly. 



AS records are stored in the system, they are automatically linked 
into their defined chains. 



When a record is deleted, the chains in vjhich it is a detail record 
are automatically modified to relink around the deleted record, 
which will eventually be physically deleted. 



STRUCTURE REPRESENTATION 



A special graphic technique called I-D-S shorthand has been developed to 
display records and their chaining relationships. 

Its use is particularly important in developing an over-all view when 
planning a database structure. This technique (see Figure 4) uses a 
block shape to designate a record type — employee (record type 1) and 
deduction (record type 2) — and an arrow connecting two blocks to 
designate a chain type. The arrow points from the master to the detail, 
as shown in Figure 4. 
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Figure 4. I-D-S Shorthand 



In the foregoing example of I-D-S shorthand, the vertical 
block-arrow-block sequence carries the following message: 

1. There are a number of records in the system of the master type 
(one for each employee) . 

2. Each of these records is the master of a chain of the specified 
type (deduction) . 

3. There are a number of records of the detail type (deductions 1, 
2, 3, 4, etc.) in each such chain. 

The purchase order data structure (Figure 5) shows how a vendor record 
and a particular order record from the example shown in Figure 6 is 
normally structured in the I-D-S system. 
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Figure 5. Purchase Order Data Structure 



The purchase order contains four groups of information. 

1. Information about the vendor — such as his name, address, and 
vendor code. 

2. Information about the order— such as the order number, due 
date, mode of transportation, and dollar value. 

3. Information about the order item — such as delivery date, 
quantity, unit price, and extended dollar value. 

4. Information about the inventory item—such as its 
identification and description. 

The data structure in Figure 5 shows all four groups and their chain 
associations with only four blocks and three arrows. To expand this 
structure, four different record types would be designed to carry the 
information contained in the four groups : 

Vendor record— There would be a vendor record for every vendor with 
whom the business is concerned: 

1. It would be the master record of a purchase order chain . 

2. Thus, the vendor record is only a master. 

Purchase order record — There would be an order record for each 
order currently stored in the system: 

1. It would be a detail in the purchase order chain . 

2. Each order, in turn, would be the master of an order item 
chain . 

3. Thus, the purchase order record is both a master and a 
detail. 

Order item record — There would be an order item record for each 
item on each order: 

1. It would be a detail in the inventory on order chain . 

2. It would be a detail in the order item chain . 

3. Thus, the order item record is a detail in two chains. 
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Inventory item record— There would be an inventory record for each 
inventory item currently stored in the system: 

It would be the master record of the inventory on order chain. 



One expanded data structure concerning Vendor 
records is shown in Figure 6. 
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Figure 6. Chain Network 
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SUMMARY OF DATA STRUCTURES 

By using I-U-S shorthand, very complex data structures may be presented 
in a condensed and understandable form. Figure 7 shows a quick summary 
of data structures which are legal and illegal within I-D-S. A circular 
definition (item 6) , where the master becomes its own detail, is not 
allowed. 
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Structure 






Figure 7. Legal and Illegal I-D-S Data Structures 
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Record Classes 

I-D-S provides three distinct record classes. The designation of the 
data records as to class is the option of the systems designer and is 
based on the storage and retrieval requirements of these data records. 

I-D-S record processing requires that there be some aspect of every 
record which makes it unique, or different from any other record. All 
records are unique by virtue of their reference code. Some records are 
also unique because they contain one or more data fields — such as a 
drawing number, order number, and pay number — where no duplicate vlues 
are allowed. 



CALCULATED RECORDS . Any set of records within the system can be 
classified as a calculated record. Its storage and retrieval are based 
upon the contents of one or more data fields. The contents of these 
fields are externally specified values — such as employee numbers, part 
numbers, or order numbers. The contents of these fields are processed 
through a randomizing procedure which determines a page number for an 
initial storage location. The record is stored on this page. If space is 
not available on the calculated page, the record is stored on the next 
successive page with available space. The subsequent retrieval of this 
record follows this same basic procedure. 



SECONDARY RECORDS . Secondary records are unique by their chain 
relationship to a specified type of master record. The item records 
associated with a purchase order (master) record are good examples of 
secondary order records. These records are stored and retrieved by first 
locating the purchase order record and then stepping through the order 
item chain to locate the item record by comparison of its item number 
field. 



PRIMARY RECORDS . Records designated in the data description as primary 
are unique only as a result of their reference codes. Generally primary 
records are used in place of calculated records where the external 
assignment of identification fields, such as part number or order 
number, is not required. In these cases, an internally generated number 
(the reference code) is assigned and used as the key field for storage 
and retrieval. 
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D-S RECORDS 



The I-D-S record contains 



set of 



ixfc;±ub 



WlliUll 



describe the contents of the record. I-D-S augments these records with 
identification and chain fields (or chain pointers) as shown in Figure 
8. 




Identification 
Field 
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Figure 8. I-D-S Record 



There is at least a chain field generated for each chain the 
participates in. 



record 



The chain fields contain the reference codes of other I-D-S records. 
They point from one record to the next, creating a circular association 
of records (see Figure 1). 

These associations are automatically processed according to the data 
descriptions and the procedural commands executed. The arrows in Figure 
1 indicate the linking actually carried out through storing the 
reference code of one record in the body of the prior record. 



A reference code is the relative logical (as opposed to physical) 
address of a data record. It consists of a page number and a line 
number. The reference code is used by I-D-S to develop and assign a 
unique address to each data record as it is stored on the mass storage 
device. Once a record is assigned a reference code, 
reference code until it is physically deleted. 



it maintains that 



The reference code in its 24-bit binary form is available to the user in 
a communication area called DIRECT-REFERENCE immediately after the 
record is stored. For internal use, I-D-S uses a binary number of the 
form: 



XXXXXXYY 



where X is the octal page number and Y is the octal line number, 
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The page number is a sequential number permanently assigned to each page 
which defines where in the I-D-S environment the page is stored. It 
occupies three character positions and permits 262,143 pages per I-D-S 
file. At execution time page numbers are converted to actual mass 
storage device addresses by the I-D-S mapping routine. 

The line number defines where a record is stored within a page. Line 
numbers are not sequential within the page because new records are 
always stored at the end of a page. Line numbers of deleted records are 
made available for use by new records; the first available line number 
(the first line number not in use) is assigned to a new record as it is 
stored into a page. The line number occupies one character and permits 
6 3 line numbers per page. 

For example, a reference code (as contained in DIRECT-REFERENCE) of 
00010029 decimal becomes 00023455 when converted to octal. This then is 
page 234 (octal) , line 55 (octal) . 



Linking Detail Records of a Chain 

In order to insert a new detail record in a chain, three steps are 
required: 

1. Physical storage space must be found. 

2. The appropriate master and its chain must be selected. 

3. The record must be inserted in that chain according to the 
chain ordering rules. 



Selecting Master Record of a Chain 

There are two rules under which the master record is selected for a new 
detail record. These are: 

1. Select Unique Master — This rule uses the record retrieval 
criterion, established in the data definition for the master 
record, to retrieve the particular master record indicated by 
the data values currently stored in the match control field of 
Working-Storage . 

2. Select Current Master — This rule uses the last record 
processed, of the master record type, as the master record of 
the new detail. 
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Chain Ordering 



All chains in the Integxated Data Stujre system aj.e oir<aere>a : 

methods selected by the system designer vjith the CH/\1N-0RDER clause in 

the I-D-S language. 

The CHAIN-ORDER clause must be used in each Master Chain Definition 
entry. 

The six options of the CHAIN-ORDER clause are: 

1. Sorted — With this option all of the records of the chain are 
maintained in a single sequence regardless of the number of 
record types in the chain. VJith this option the 
sorting-key (s) must be used to sort the various records. 



same 



2. Sorted VJithin Type — With this option the records of the chain 
are maintained in sequence within record type, independent of 
other types. 

NOTE: When either of the sorted options is specified, details 
are added to the chain based upon the contents of the 
defined sort control fields of the detail records. 

3. First — This option causes the detail to be added as the first 
detail record in the chain relative to the master record. 

4. Last — This option causes the detail to be added as the last 
detail record in the chain relative to the master record. 

5. Before — This option causes the insertion of the detail record 
just before the current record in the chain. This option may be 
used only in conjunction with the Current Master selection 
rule . 

6. After — This option causes the insertion of the detail record 
just after the current record of the chain. This option may be 
used only in conjunction with the Current Master selection 
rule. 
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Prime Chain 

Access time in present disc- type random access memories varies greatly, 
since it depends on the position of the desired record relative to the 
record last accessed. The I-D-S organization of records acknowledges 
this factor of hardware design and stores new detail records as close as 
possible to the master record of the chain. When a detail record is 
specified as a detail in several chains, a prime chain may be chosen and 
defined by the systems designer preparing the data description. 
Selection of a prime chain should be based upon an estimate of the most 
active chain. Thereafter, when an I-D-S page is retrieved which contains 
the master record of a prime chain, it is highly probable that the 
detail records of that chain will also be contained in that page or a 
page closely associated with it. The prime chain is the chain used to 
retrieve a secondary record by the RETRIEVE command, unless specified 
otherwise by the data description. 



Chain Processing 

I-D-S offers complete flexibility in the retrieval of records within a 
Cham by providing three methods of chain inter- linking. 



Chain NEXT . The definition of a record as a memory of a chain 
automatically provides the record with a chain-next field. This is the 
manner in which all chains are constructed. Each record contains a 
chain-next field which contains the reference code of the next record in 
the chain . 



Chain PRIOR (optional) . I-D-S provides a chain-prior field for all 
records in a chain when the chain is specified by the system designer as 
prior processable. This field contains the reference code of the prior 
record in the chain. This permits the chain to be processed efficiently 
in a backward direction, as well as forward (through the automatic NEXT 
chain field) . 



Chain IIASTER (optional) . I-D-S provides a chain-master field for all 
detail records in a chain when specified in the data description. This 
field contains the reference code of the master record of the chain. 
Retrieval of the master record is much faster with this ability to 
address the master record directly from any detail in the chain. 
Processing need not access all the detail records in the process of 
seeking the master. 
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These methods are illustrated in Figure 9. 
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Figure 9. Chain Processing 



Chain Tables 

Chain tables are used internally by I-D-S subroutines. A chain table is 
built by I-D-S for each chain defined. The programmer can reference 
selective information in the chain table, and a knowledge of what they 
are and how I-D-S uses them can help in designing efficient chains. 

A chain table comprises four entries: MASTER, PRIOR, CURRENT and NEXT. 
Refer to "Chain Processing" for a description of these entries. As I-D-S 
traverses a chain, the entries are updated with the reference codes of 
the data records that are being retrieved. 



Figure 10 shows a chain using dummy reference codes. 
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Master Record 
Ref Code = 101 



1 



Detail 1 
Ref Code =105 



Chain A 



Detail 2 
Ref Code = 205 



Detail 3 
Ref Code = 407 



Figure 10. Chain with Dummy Reference Codes 



To interpret the dummy reference codes: master record is 101, detail 
record 1 is 105, detail record 2 is 205, and detail record 3 is 407. 

Assume only the reference code of the master record is known. When I-D-S 
is asked to get detail record 2 of chain A, I-D-S retrieves the master 
record of chain A and traverses the chain until the detail record 2 is 
found. While I-D-S is traversing the chain, it is updating the chain 
table. When detail record 2 is found, the chain table appears as shown 
in Figure 11. 



Master 


101 


Prior 


105 


Current 


205 


Next 


407 



Figure 11. Chain Table After Retrieval of Detail 2 
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Although the chain is not PRIOR processable and is not LINKED TO I-IASTER, 
detail 1 is directly available with a RETRIEVE PRIOR OF CHAIN A command. 
Because of the PRIOR entry in the chain table (in Figure 11) , I-D-S 
would not traverse the chain forward through detail 3, master record, 
etc., to locate detail 1 but would retrieve it directly at the location 
stored at the PRIOR entry in the chain table. However, after detail 1 is 
retrieved by "backing up," the record prior to detail 1 is not known. 
Therefore, the chain table would now appear as shown in Figure 12. 



Master 


101 


Prior 


000 


Current 


105 


Next 


205 



Figure 12. Chain Table Backed Up to Detail 1 

If a RETRIEVE PRIOR OF CHAIN A were executed at this point, I-D-S would 
have to traverse the chain until it found the PRIOR (in this case, the 
master) record. 

If the chain had been defined as PRIOR processable, the chain table 
would be updated as shown in Figure 13. 



Master 


101 


Prior 


101 


Current 


105 


Next 


205 



Figure 13. Chain Table for a PRIOR Processable Chain 
after Retrieval of Detail 1 
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If a chain were not PRIOR processable, I-D-S could back up one record as 
though it were PRIOR processable if the prior record in the chain had 
been passed. 

Assume that the reference code of detail 2 is known and the chain is 
neither HEADED nor PRIOR processable. If a RETRIEVE DIRECT is executed, 
the chain table is updated as shown in Figure 14. 



Master 


000 


Prior 


000 


Current 


205 


Next 


407 



(Unknown) 
(Unknown) 



Figure 14. Chain Table after Direct Retrieval of Detail 2 

Since the chain is neither PRIOR processable nor HEADED (LINKED TO 
MASTER) and I-D-S did not pass the PRIOR record or the MASTER record in 
getting to the CURRENT record, I-D-S does not know the reference code of 
the MASTER or the PRIOR record in this chain. It knows where the NEXT 
record is because of the chain-next field in detail record 2. 

If the chain has been defined as PRIOR processable and HEADED and I-D-S 
had retrieved detail 2 DIRECT, the chain table would appear as shown in 
Figure 15. 
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Master 


101 


Prior 


105 


Current 


205 


Next 


407 



Figure 15. Chain Table — PRIOR and HEADED 



In this case, MASTER and PRIOR references were available from the chain 
fields in detail record 2. 
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3. I-D-S Programming Language 



The source language of I-D-S is an extension of GE-600 Line COBOL; 
therefore, formats and language specifications of COBOL must be adhered 
to when preparing a source program. 



IDENTIFICATION DIVISION 

The purpose and usage of the Identification Division are identical with 
those defined for GE-600 Line COBOL, with no special function for I-D-S. 

Fixed paragraph names are used as keys in the division. They identify 
the type of information contained in the paragraph. Paragraphs which may 
be included in the division are: 

IDENTIFICATION DIVISION. 

PROGRAM-ID. 

AUTHOR. 

DATE-WRITTEN. 

DATE -COMPILED. 

SECURITY. 

REMARKS. 



ENVIRONMENT DIVISION 

All portions of the Environment Division are used as defined by GE-600 
Line COBOL, in addition, I-D-S includes the IDS-SPECIAL-NAMES paragraph 
and the SELECT IDS sentence of the FILE-CONTROL paragraph. 

The following illustration is an example of the Environment Division 
with the use of these two I-D-S functions. 
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ENVIR0N^4ENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. GE-635, 



OBJECT-COMPUTER. GE-635. 



IDS-SPECIAL-NAMES . 
IDS BLOCK. . . 



INPUT-OUTPUT SECTION. 
FILE-CONTROL. 

SELECT IDS file-name ASSIGN TO file-code-1. 



I-0-CONTROL. 
APPLY. . . 
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CONFIGURATION SECTION 
IDS-SPECIAL-NAMES 



Configuration Section, I DS-Specia I- Na mes Paragraph 

Function: To indicate to the I-D-S translator which statements are to 
be selectively translated. To allow definition of a unique 
labeled common area for the generated structure of an I-D-S 
program. To allow RECORD, CHAIN and FIELD names to be 
included with the generated structure. To indicate to the 
COBOL compiler all translator generated sections and code are 
to be suppressed from the COBOL source listing. 

Format Option 1: 

IDS-SPECIAL-NAMES . 



J ALL 
PROCESS / ) DEBUG STATEMENTS 

ILEVEL alpha-1 THRU alpha-2 



Format Option 2: 

IDS-SPECIAL-NAMES . 



IDS BLOCK integer-1. 



Format Option 3: 

IDS-SPECIAL-NAMES , 



INCLUDE STRUCTURE NAMES. 



Format Option 4 : 

IDS-SPECIAL-NAMES . 



APPLY LIST SUPPRESSION 



Notes : 



1. This paragraph may be omitted when its provisions are not used 
in the source-program. 



Rev. August 1971 
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The PROCESS DEBUG STATEMENTS option is a compiler directing 
clause that allows the programmer to specify that all or 
certain selected debugging statements in the source program are 
to be processed. Debugging statements can be identified by a 
single character (A-I) in column 7 of the coding form. When the 
programmer wants all the debugging statements in the source 
program processed, he specifies this by writing PROCESS ALL 
DEBUG STATEMENTS. When the programmer wants certain debugging 
statements processed, he specifies this by writing PROCESS 
LEVEL alpha-1 DEBUG STATEMENTS. When this is done, only those 
debugging statements with the specified character (alpha-1) 
appearing in column 7 are processed. 

In addition, the programmer can specify that a range of 
debugging statements are to be processed by writing PROCESS 
LEVEL alpha-1 THRU alpha-2 DEBUG STATEMENTS. When this is done, 
all the debugging statements in the range specified (alpha-1 
THRU alpha-2) are processed. Note that when debugging 
statements identified by a single character in column 7 appear 
in the source program and the PROCESS DEBUG STATEMENTS option 
is not included in the source program, those statements with a 
character in column 7 are unconditionally bypassed (i.e., not 
processed) . The PROCESS ALL DEBUG STATEMENTS option has no 
effect on statements that have nothing, a hyphen, or an 
asterisk in column 7. 



Rev. August 1971 
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3. In option 2 the value of integer-1 may be 01 through 99. 

4. If Option 2 is used, the labeled common area in which the I-D-S 
generated structure is assembled will be identified by a symbol 
of the form "I (integer-1) " . if Option 2 is not used, the 
default symbol for this area will be ".IDS..". (Refer to the 
'^^"600 Line General Loader Reference Manual , CPB-1008, for a 
discussion of labeled common.) 

Example : 

IDS-SPECIAL-NAMES . 

IDS BLOCK 66. 

This would cause the symbol "166" to be used for the I-D-S 
generated structure block. 

5. Option 3 is used to cause the names of RECORDS, CHAINS and 
FIELDS to be assembled into the definition structure of the 
I-D-S-STRUCTURE SECTION. 

6. Option 3 will have primary use for programs that use the TRACE 
and PRINT RECORD, DEBUG, and Utility Subroutine .QSTC, (Chapter 
8) . 

7. Option 4 gives the user the ability to suppress printing of all 
translator generated coding from the COBOL source listing. 

8. The following will be suppressed from the COBOL source listing: 

All I-D-S generated structure within the Workinq-Storaqe 
Section. ^ 



a 



b. All generated calls to the I-D-S subroutines within the 
Procedure Division. 

c. The generated Macro calls within the I-D-S Structure 
Section. 

d. All generated tables and constants. 

e. All generated Enter Definitions. 

The statements in IDS-SPECIAL-NAMES paragraph may be in anv 
desired order. 
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INPUT-OUTPUT SECTION 
FILE-CONTROL 



Input-Output Section, File-Control Paragraph 

Function: To assign an I-D-S file name and to specify the logical 
device on which it resides. 

Format : 

FILE-CONTROL . 

SELECT IDS file-name ASSIGN TO file-code-1. 



Notes : 
1. 

2. 

3. 



The SELECT IDS entry must be used only once to identify the 
I-D-S data file. 

Other optional clauses of the SELECT entry as specified for 
COBOL should not be used with the SELECT IDS sentence. 

File-code-1 must be a two-character word consisting of two 

letters (A,....,Z) or a letter and a digit (0, ,9). Each 

file code must be unique with respect to other file codes in 
the program. 
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DATA DIVISION 

lilt; UtiaUlTj-pi — LVJll \JJ- Ullc: J. — w— 1-» t-iut-u j-a-Xv^ -i.^ i^v>jx ^t_i-.-*»v-^ -.** «. w^-^^^«^ „^^^-.»^*. 

of the Data Division called the IDS Section. This section must 
physically follow the Working-Storage Section, if present, and precede 
the Constant Section. 

The IDS Section contains a File Description, Record Description, and 
Chain Definition as required to describe the complete data file. 

The following illustration shows the fixed sections of the Data Division 
in the order in which they must appear in the source program. A section 
may be omitted if it is not needed. 

Data Division. 
File Section. 
Working-Storage Section. 
IDS Section. 
Constant Section. 
Report Section. 



File Description 

The File Description entry provides information regarding the physical 
characteristics of the I-D-S data file. The entry is used only for 
documentation purposes and must appear only once in the I-D-S source 

program and must be the first entry in the IDS Section. 

The entry consists of a level indicator, a file name, and a series of 
clauses which define the physical characteristics of the I-D-S file. The 
mnemonic level indicator MD is used to identify the start of the File 
Description entry and to distinguish it from the Record, Field and Chain 
Descriptions. The format for the complete I-D-S File Description entry 
follows. 
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COMPLETE I-D-S FILE 
DESCRIPTION ENTRY 



Complete I-D-S File Description Entry 

Function: To describe the physical structure of an I-D-S file. 

Format: 

MP file-name F; PAGE CONTAINS integer- 1 CHARACTERS ~| 
Q fILE CONTAINS integer- 2 PAGES 1 . 



Notes : 



The file-name must be identical to the one used in the 
SELECT IDS sentence of the FILE-CONTROL paragraph of the 
Environment Division. 

Other optional phrases of the File Description entry as 
specified for COBOL do not apply to the IDS Section and must 
not be used. 

The PAGE size (integer-l) specified may be any value up to a 
maximum of 4096 characters. However, the most efficient use of 
the storage capacity of the mass storage device involved should 
be considered when establishing the page size. 



The FILE clause expresses the total physica 
requirements of the I-D-S file. This value must be 
to or less than the capacity which has been reserved 
file by the allocation procedure of GECOS . See the GE 
Comprehensive Operating Supervisor ( GECOS* III) 
Manual, CPB-1518, for a discussion of the aTTo 
permanent random disc or drum files. The maximum 
pages possible within the I-D-S page numbering 
262,143. 



1 storage 

equivalent 

for the 

■600 Line 

Reference 

cation of 

number of 

system is 



Page and file size is for documentation only; it 
during execution. 



is not used 



^GECOS, Trademark 
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5. Page and file size clauses are not required. 



6. The clauses may appear in any order within the entry. The 



Example: 

IDS SECTION. 

MD DATA-BASE: PAGE CONTAINS 1920 CHARACTERS; 

FILE CONTAINS 100000 PAGES. 
01 UNIT-MASTER- REC; 
TYPE IS 70; 

RETRIEVAL VIA MASTR FIELD; 
02 MASTR; SIZE 8 NUMERIC. 
9 8 UNIT CHAIN MASTER; 

CHAIN-ORDER IS SORTED. 
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Record Description 

Record Description entries are used to: 

1. Provide information to I-D-S regarding the external format 
of each logical record type as it will exist within a page 
on the external storage device. 

2. Define internal Working-Storage areas which serve as 
communication interfaces between the user's routine and 
the I-D-S data file. 

3. Provide parameters which control I-D-S processing. These 
parameters are defined at levels 01 and 98. 

The external format of an I-D-S record consists of control fields and 
data fields. Records are stored as fixed-length records. Each record 
contains identification fields, a chain field for each chain association 
specified, and as many characters of data as required by the level 02 
entries. 

The level 02 entries are packed into the records, and records are packed 
into pages on a character-oriented basis. Computer word orientation is 
never used. When a record is retrieved from the storage device, the data 
fields of the record are available to the user only after they are moved 
to working storage. Before storing a record, the Working-Storage area 
must first have been initialized with the data fields of the record to 
be stored. 

The I-D-S Translator creates an internal Working-Storage area for each 
level 02 entry. The area created may contain subfields which are defined 
by lower level entries and may be separately referenced by user COBOL 
procedure statements. However, I-D-S operates only on units of data 
defined by the level 02 entry. Therefore, any field that is to serve 
either as a control field or that is to be modified by I-D-S must be 
defined as a level 02 entry. 

The Translator produces parameters from the clauses that are defined at 
levels 01 and 98. Lower level entries (03-49) may be used to define 
subfields of the level 02 entry. Any legal COBOL description clause may 
be used as long as it does not contradict the description provided for 
the level 02 entry. For a further clarification of the GE-600 Line COBOL 
Reference Manual, CPB-1652. 

The parameters are described in detail on the following pages. 
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The level 02 data names may not be used for qualification. Qualification 
of lower level entries up to level 02 is permissible. If the same data 
name occurs as an 02 entry for different record types, the same 
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Standard COBOL record description clauses allowed at level 02 are 
REDEFINES and FILLER. They do not generate Working-Storage areas. 

REDEFINES may be used for redefinition of an area previously defined. 
This enables COBOL procedural statements to reference the 
Working-Storage area by either of its definitions. The field-oriented 
functions of I-D-S (MOVE, MODIFY) , however, respond only to the original 
definition of the field. 

The use of FILLER as a data-name creates space in the external format 
only. 

Although the PICTURE clause is the significant element of the level 2 
description, any of the standard COBOL clauses may be used with the 
following exceptions: 

OCCURS 
RENAMES 

Editing clauses 
COPY 
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COMPLETE I-D-S RECORD 
DESCRIPTION ENTRY 



Complete I-D-S Record Description Entry 

Function: To specify the parameters which define an I-D-S record. 

Format: 

01 record-name; TYPE IS integer-1 

field-name ^ FIELD 



; RETRIEVAL VIA ( f chain-name- 1 I CHAIN 

ICALC 



-name-ll 



(integer-2 TO integer-3 
; PAGE- RANGE IS< 

1 field-name-1 TO field-name-2 



f; PLACE NEAR chain-name-2 CHAIn] 
r ; INTERVAL IS integer-4 PAGEs]] 
[^ ; AUTHORITY IS integer-s]] 



Notes : 



1. Each of the above clauses is applicable only at record level 
01. 

2. Record-name must be unique, since qualification by file name is 
not meaningful. 

3. The clauses may appear in any order within the entry. The 
entry must end with a period. 

4. All format considerations are as specified for COBOL. 
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TYPE 



Type 

purposes for each record type within I-D-S. 
Format: TYPE IS integer-1 
Notes : 

1, This clause is required for each level 01 entry. 

2. Integer-1 may be any value from 1 to 999. 
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RETRIEVAL VIA 



Retrieval Via 

Function: To specify procedures for retrieving and storing a record. 



Format : 

field-name FIELdI 
CALC f 



; RETRIEVAL VIA / /^chain-name- i\ CHAIN 
Notes: 



i^ 



1. This clause is required for each level 01 entry. 

2. Records specified for RETRIEVAL VIA field-name FIELD are 
referred to as primary records. 

Field-name must be defined at level 02 in this record. It must 
be specified as: 

02 field-name PICTURE 9(8). 

The field is not stored in the record; it exists only in 
working storage. The field-name FIELD is called the prime 
retrieval field. 



If the user wishes to retrieve a primary record using the 
RETRIEVE record-name RECORD statement of the Procedure 
Division, he must first initialize the field-name with the 
reference code of the record to be retrieved. 



When a primary record is stored, its reference code is placed 
into DIRECT-REFERENCE. The user may specify the page where he 
wishes a primary record stored by placing its reference code in 
the DIRECT-REFERENCE. Zeros may also be stored in 
DIRECT-REFERENCE which causes the record to be stored on a page 
most convenient to I-D-S . 



Placement of primary records can be modified by the PAGE-RANGE, 
PLACE NEAR, and INTERVAL clauses. 
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3, Records specified for RETRIEVAL VIA chain-name-1 CHAIN are 
referred to as secondary records and are retrieved by their 
association in the named chain. The chain-name-1 CHAIN is the 
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when the RETRIEVAL VIA chain-name-1 CHAIN clause is used, the 
record must be specified at level 98 as chain-name-1 CHAIN 
DETAIL. 



When the RETRIEVE record-name RECORD statement of the Procedure 
Division is used, the master record of the chain-name-1 CHAIN 
is first retrieved. Then the specific detail record is found by 
searching the chain. 

If the CHAIN-ORDER is FIRST or LAST, then the RETRIEVAL VIA 
chain-name CHAIN clause causes the record to be stored on the 
page of the master record of the chain named in the clause. 
Otherwise, the record is stored in the page of the current 
record of the chain named. When a secondary record is stored, 
I-D-S places its binary reference code into DIRECT-REFERENCE. 
Placement of secondary records can be modified by PAGE-RANGE, 
PLACE-NEAR, and INTERVAL clauses. 

Records specified for RETRIEVAL VIA CALC CHAIN are referred to 
as calculated records. 



RETRIEVAL VIA CALC CHAIN operates the same as RETRIEVAL VIA 
chain-name-1 CHAIN, except that the master record of the chain 
is a Page Header record. The CALC CHAIN is called the prime 
retrieval chain for the record. 



When the RETRIEVAL VIA CALC CHAIN clause is used, the record 
must be specified at level 98 as a CALC CHAIN DETAIL. 

When the RETRIEVE record-name RECORD statement of the Procedure 
Division is used, the Page Header record is first retrieved. 
Then the specific detail record is found by searching the CALC 
chain. The Page Header record is found by randomizing the 
values in the control fields defined in the detail record to be 
retrieved. The number resulting from the randomization is 
mapped into the effective page range of the detail record to be 
retrieved, thereby yielding the page number of the Page Header 
record whose CALC chain is to be searched. 



Rev. August 1971 
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The RETRIEVAL VIA CALC CHAIN clause causes the record to be 
stored on the page calculated by randomizing on control fields 
and mapping into the effective page range of the record. 

Placement of calculated records may be modified by the 
PAGE-RANGE clause. PLACE NEAR and INTERVAL clauses do not apply 
to calculated records. 

5. These three RETRIEVAL procedures provide a basis for 
classification of each record as one of the following: 

Primary - Retrieved directly via reference code 
Secondary - Retrieved via its chain association 
Calculated - Randomized to the page containing the chain 
which leads to the record. 

Subsequent discussions of I-D-S will refer to records using these 
terms . 
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PAGE- RANGE 



Page-Range 



Function: to provide a method for plctcing vctriuus i.<=<-vjj.d ty^^es witnin a 
designated segment of an I-D-S file. 



Format: 



; PAGE- RANGE IS 



rinteger-2 TO integer-3 
lfield-name-1 TO field-name-2 



Notes : 



1. 



Integer-2 and integer-3 represent the first and last page 
numbers of a series of pages in which records of a particular 
type are stored. If integer-2 is greater than integer-3, the 
series of pages wraps around the end of the file and terminates 
at a lower page number. 



For example, if a 900-page file contained record types A, B, 

and C, each record type could be isolated in a segment of the 

file by specifying a page range of 1 to 300 for A, 301 to 600 
for B, and 601 to 900 for C. 

2. The page numbers must fall within the total number of pages 
specified for the file. 

3. Different types of records may share the same page range. 

4. The PAGE-RANGE clause delimits the action of the RETRIEVAL VIA, 
PLACE NEAR, and INTERVAL clauses. 

5. The PAGE-RANGE clause may be used for calculated records. 

6. If PAGE-RANGE is not specified, the range is assumed to be 
equal to the page range of the entire file. 

7. If the field name option is used, field-name-1 and field-name-2 
must be defined in Working-Storage. 

Example : 

77 field-name-1 PIC 9(6) COMP-1. 
77 field-name-2 PIC 9(6) COMP-1. 
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8. The page range values must be placed in fie Id-name- 1 and 
field-name-2 prior to STORE of the record or prior to RETRIEVE 
of the record. 

9. Example: 

IDS SECTION. 

MD DATA-BASE; PAGE CONTAINS 192 CHARACTERS; 

FILE CONTAINS 100000 PAGES. 
01 UNIT-MASTER- REC; 
TYPE IS 070; 

RETRIEVAL VIA MASTR FIELD; 
02 MASTR PICTURE 9(8). 
9 8 UNIT CHAIN MASTER; 

CHAIN-ORDER IS SORTED. 

01 UNIT-REC; 

TYPE IS 010; 

RETRIEVAL VIA CALC CHAIN; 

PAGE RANGE IS 1 TO 20000. 



01 QUAD4 

TYPE IS 004 

RETRIEVAL VIA CALC CHAIN 

PAGE-RANGE IS RNG-1 TO RNG-2, 
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PLACE 
NEAR 



Place Near 

Function: To store a record physically near the master record of a 
specified chain. 



Format : 



[".- PLACE NEAR chain-naine-2 CHAInI 



Notes : 



1. Chain-name-2 must be a defined chain name. The record to be 
placed must be specified at level 98 as a detail of the chain 
named in the PLACE NEAR clause. 

2. The PLACE NEAR clause may only be used with primary and 
secondary records. 

3. If the CHAIN-ORDER is SORTED, SORTED WITHIN TYPE, FIRST or 
LAST, the record is stored on the page of the master record of 
the chain named in the PLACE-NEAR clause. Otherwise, the record 
is stored in the page of the current record of the chain. 

4. If a current record of the type named exists, the INTERVAL 
clause supersedes this clause. 

5. The PAGE-RANGE clause supersedes this clause when a conflict 
occurs . 

6. Records stored using this clause are subject to the overflow 
rule. 
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INTERVAL 



Interval 



Function: To enable uniform distribution of records of a given type 
across the I-D-S file. 



Format : 



F; INTERVAL IS integer-4 PAGESl 



Notes ; 



Integer-4 represents the number of pages which will be skipped 
when a record is stored. 

The INTERVAL clause may only be used with primary and secondary 
records. 

Normally, primary records are stored physically according to a 
reference code furnished by the user. Secondary records are 
stored physically near the master record of the chain specified 
in the RETRIEVAL VIA chain-name-1 CHAIN clause or according to 
a PLACE NEAR clause. When INTERVAL is used, the above criteria 
apply only to the first record of the stored type. That is, if 
I-D-S has not processed a record of this type, the CURRENT 
record value is zero and INTERVAL is not in effect. Subsequent 
records are stored integer-4 pages away from the current record 
of the specified type. The current record is either the last 
record of the type stored or the last record of the type 
retrieved. 

For example, if the last record of type A is stored on page 5 
and interval is 3, the next record of type A would be stored on 
page 8. 

The INTERVAL clause is used normally for initial file loading 
of primary master records. By specifying an interval, the user 
can ensure sufficient space between the master records to store 
the detail records in their chains. 

When INTERVAL reaches the end of the page-range or end of the 
file, it reverts either to the beginning of the page-range or 
to the beginning of the file. 



Records stored using this clause are subject 
rule. 



to the overflow 



Application of INTERVAL by I-D-S is not continuous between 
computer runs. If it is to continue from day to day, it must be 
reinitialized by retrieving the last record of the type 
processed in the previous run which makes it current in this 
run. Storage may continue from this point. 
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AUTHORITY 



Authority 



Function; To safeguard data in a record against unauthorized refs 
or modification. 



Format: 



[; AUTHORITY IS integer-s] 



NOTE: Integer-5 may be any value not exceeding 4095(10). The value 
supplied is used as a lock for data in any record of this type. 
When this record is referred to during execution, a key must have 
been supplied that matches the lock. The key is supplied by the 
OPEN statement which is defined in the Procedure Division. 
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Chain Definition 

A record belongs to at least one, and possibly many chains. A Chain 
Definition entry must exist for each chain in which the record is 
included. All Chain Definition entries for a given record must 
immediately follow the Record Description entries for that record. 

The Chain Definition entry consists of a level 98 indicator which names 
the chain that a level 01 record is either a detail or master in, a 
chain name, and a series of clauses which define the characteristics of 
the chain. The complete Chain Definition entry skeleton and a detailed 
description of the clauses follow. 
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COMPLETE CHAIN 
DEFINITION ENTRY 



Complete Chain Definition Entry 

Function: To name and describe tlie interrecord relationship between a 
master and detail record and to direct the placement of a 
record into the I-D-S file. 



Format Option 1 (Master) 



9 8 chain-name- 1 CHAIN 14ASTER 



; CHAIN- ORDER IS 



SORTED WITHIN TYPE 

SORTED 

FIRST 

LAST 

BEFORE 

AFTER 



D 



LINKED TO PRIOR 



i 



Format Option 2 (Detail) 



98 



rchain-name-2'\ 
| CALC J 



CHAIN DETAIL 



;RANDOMIZE ON field-name-1 Q RANDOMIZE . . j1 
ARE FIRST 



; DUPLICATES 



ASCENDING 



ARE LAST 
NOT allowed! 



>KEY IS field-name-2 



I DESCENDING! 



[ 



ASCENDING. 



DESCENDING. . ._ 



_; ASCENDING RANGE KEY IS fie Id-name- 5] 
; SELECT ^ UNIQUE "^ MASTErI 

_ { current ] J 

; MATCH-KEY IS field-name-4 [ maTCH-KEY . .T]1 

; MATCH-KEY IS field-name-5 fSYNONY]>i| field-name-4 [match-KEY , 



Q 



[SYNONYT^ field-ne 
( SYN I 



LINKED to MASTER 



II 
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I-IASTER/DETAIL 



Master/Detail 

Function: To describe a record as either a detail or master of a chain. 

Format Option 1: 

9 8 chain-name- 1 CHAIN t4ASTER 

Format Option 2 : 

98 rchain-name-2 1 CHAIN DETAIL 



Notes : 



t chain-name- 2I 
CALC J 



1. This entry must be a level 98. 

2. Option 1 defines a record as the master record of a chain 
structure. One option 1 entry is required for each chain 
structure for which the record is the master. A single chain 
structure can have only one master record but a single record 
can be the master of more than one chain structure. 

In the example below UNIT-REC is a master record in the 
SUB-UNIT CHAIN, the ASSIGNMENT CHAIN and the COMPLEMENT CHAIN. 

3. Option 2 defines a record as a detail record in a chain 
structure. One option 2 entry is required for each chain 
structure in which the record is a detail. A record may be a 
detail in more than one chain structure. A single chain 
structure can be made up of any number of detail record types. 

In the example below UNIT-REC is a detail record in the CALC 
CHAIN and the UNIT CHAIN. 

4. The record may be a master in one chain structure and a detail 
in another. In this case, both options are required for that 
record. A record may not be defined as both MASTER and DETAIL 
in the same chain. 



In the example below, UNIT-REC is a master record in the 
SUB-UNIT CHAIN, the ASSIGNMENT CHAIN and the COMPLEMENT CHAIN. 
It is also a detail record in the CALC CHAIN and UNIT CHAIN. 
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If the RETRIEVAL VIA chain-name- 1 CHAIN or RETRIEVAL VIA CALC 
CHAIN clause is used in the level 01 Record Description entry, 
an option 2 entry must name the appropriate chain structure. 

The following statements illustrate this rule: 

01 SUB-UNIT REC; 

TYPE IS 30; 

RETRIEVAL VIA SUB-UNIT CHAIN; 

PAGE-RANGE IS 1 TO 20000. 
02 SUB-UNIT-CODE; SIZE 4 NUMERIC. 
98 SUB-UNIT CHAIN DETAIL; 



Example : 

01 UNIT-REC; 

TYPE IS 010; 

RETRIEVAL VIA CALC CHAIN; 

PAGE RANGE IS 1 TO 20000. 
02 UNIT-CODE: SIZE 4 NUMERIC. 

03 DIVISION-CODE: SIZE 1 NUMERIC. 

3 DEPARTMENT- CODE : SIZE 1 NUMERIC. 

03 GROUP-CODE: SIZE 1 NUMERIC. 

03 SECTION-CODE: SIZE 1 NUMERIC. 
02 REPORTING-UNIT: SIZE 4 NUMERIC. 
02 ORG-NAME: SIZE 20 ALPHANUMERIC. 
2 TOTAL-BUDGET: SIZE 7 NUMERIC. 
9 8 CALC CHAIN DETAIL; 

RANDOMIZE UNIT-CODE. 
9 8 SUB-UNIT CHAIN MASTER; 

CHAIN-ORDER IS SORTED. 
9 8 ASSIGNMENT CHAIN MASTER; 

CHAIN-ORDER IS FIRST. 
9 8 COMPLEMENT CHAIN MASTER; 

CHAIN-ORDER IS SORTED. 
9 8 UNIT CHAIN DETAIL; 

SELECT CURRENT MASTER; 

ASCENDING KEY IS UNIT-CODE; 

DUPLICATES NOT ALLOWED. 
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CHAIN-ORDER 



Chain-Order 



Function: To specify the criteria for sequencing detail records within 
a chain. 



Format: 



; CHAIN-ORDER IS 



f SORTED WITHIN TYPE"^ 
SORTED 
FIRST 
LAST 
BEFORE 
AFTER 



Notes; 



This clause must be used in each Master Chain Definition entry 
(option 1) . 

If either SORTED or SORTED WITHIN TYPE is used, detail records 
are positioned in the chain according to the value of their 
sort control fields. 



If SORTED is used, the various records of the chain are 
maintained in a single sequence regardless of tlie number of 
record types in the chain. The size and class of sort control 
fields of the various records must be identical. 



If SORTED WITHIN TYPE is used, records of the chain are 
maintained in sequence within a record type, independent of 
other types. This does not mean that there is an implied major 
sort by record type code. It means only that when a given type 
of record is considered, it is in sequence by its own sort key. 

An example of a SORTED and SORTED WITHIN TYPE chain follows. 
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Sorted Chain 




Sorted Within Type Chain 



CHAIN-MASTER 



TYPE 1 
VALUE 56 




TYPE 3 
VALUE 90 




\ 








/ 






TYPE 2 
VALUE 67 




TYPE 4 
VALUE 101 








\ 








/ 








TYPE 3 
VALUE 78 




TYPE 1 
VALUE 68 








\ 








/ 








TYPE 4 




TYPE 2 








VALUE 


89 




VAL 


UE 79 
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The last four forms, FIRST, LAST, BEFORE, and AFTER, of this 
clause cause a detail record to be inserted in the chain 
relative to some other record in the chain. These options are: 

FIRST Insert detail record in chain immediately following the 
master record. 

LAST Insert detail record in chain immediately preceding the 
master record. 

BEFORE Insert detail record in chain immediately preceding the 
current record of chain. 

AFTER Insert detail record in chain immediately following the 
current record of chain. 



The current record of a chain will always be the master record 
if SELECT UNIQUE MASTER has been specified. 

The selection of the BEFORE and LAST Options causes I-D-S to 
create an extra chain field which contains the reference code 
of the immediately preceding record of the chain. 

BEFORE causes the creation of this field in all record types of 
the chain. LAST introduces this field in the master record type 
only. 



The BEFORE and AFTER forms are compatible only with the SELECT 
CURRENT MASTER clause. 



If the chain has been defined as LINKED TO PRIOR and the 
CHAIN-ORDER IS BEFORE clause is used, the records in the chain 
are assigned only one chain field PRIOR; there is no 
duplication of chain fields. 

4. When a record is defined as a detail of a calculated chain, no 
order is maintained because calculated chains have no defined 
sequence control. 
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LINKED PRIOR 



Linked Prior 

Functions To ^irovids slzi 3.(iditiona.l chsin fi.GJ.<^ xn sach 3rscor"ci of 3. 
chain which contains the reference code of the immediately 
preceding record in the chain. This field allows a chain to 
be traversed in either direction. 



Format: 



Notes ; 



E 



LINKED TO PRIOR 



This clause is used only in the Master Chain Definition entry 
(option 1) . It provides a prior chain field in each record of 
the chain so that the chain may be traversed in either 
direction. This feature is especially serviceable when using 
either the RETRIEVE PRIOR or MODIFY verbs. It also enables the 
immediate removal of a deleted record which would otherwise 
stay linked in this chain until the chain was traversed again. 

Chain PRIOR fields have two disadvantages. First, the record 
size is increased to provide space for thp additional field. 
Second, the linking process is slower because the chain PRIOR 
field of the next record must be adjusted when a new record is 
inserted. 

When the CHAIN-ORDER IS BEFORE clause is specified, I-D-S 
automatically provides a chain PRIOR field for all record types 
defined for that chain. 

When the CHAIN-ORDER IS LAST is specified, I-D-S automatically 
provides a chain PRIOR field for the master record only. 
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RANDOMIZE 



Randomize 

Function: To specify those fields of a calculated record used to 
generate the page number for record placement and retrieval. 

Format : 

; RANDOMIZE ON field-name-1 [ TrANDOMIZE . . ."] 

Notes : 

1. RANDOMIZE must be used for each calculated record. 

2. Field-name-1 must be a level 02 field contained in the record 
being stored or retrieved. 

3. The randomizing routine of I-D-S uses as many fields as are 
specified. 

4. The word RANDOMIZE must precede each control field specified. 

5. The fields designated as RANDOMIZE fields are compared at 
record storage time. An attempt to store a record with 
identical RANDOMIZE field values will be rejected as an error. 

6. This clause may only be used when RETRIEVAL VIA CALC CHAIN is 
specified at level 01. 
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DUPLICATES 



Duplicates 

Function; To specify whether records with identical sort key values may 

exist in a chain and, if permitted, v/hat ordering action 
should be taken. 



Format : 



; DUPLICATES 



Tare first ^ 

/ARE LAST \ 

I NOT allowed/^ 



Notes : 



1. This clause must be used and only used when the chain has been 
defined as a sorted chain by the CHAIN-ORDER clause. 

2. When duplicates are allowed, the new detail may be positioned 
as the FIRST or LAST of the string of records with identical 
sort key values. 

3. If duplicates are not allowed and an attempt is made to link 
records with identical sort key values (STORE or MODIFY) , an 
error code is placed in the ERROR- INFERENCE communication area 
and the duplicate record is rejected. 



It is the user's responsibility to examine 
area. 



this communication 



Duplicates are not allowed in a CALC chain; however, it is not 
necessary to write the DUPLICATES NOT ALLOWED clause. Since 
CALC chains have no sequence, I-D-S ensures that there are no 
duplicates by searching the entire CALC chain before attempting 
to store a new CALC record. 
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ASCENDING/DESCENDING 



Ascending /Descending 

Function: To specify those data fields which control the sequence of 
detail records in a chain. 



Format Option 1: 
C ASCENDING 
I DESCENDIN G 



>KEY IS field-name-2 



ASCENDING. . . 



DESCENDING 



Format Option 2 : 

Q ASCENDING RANGE KEY IS fie Id-name- 3~j 



Notes : 



This clause must be used when a chain has 
SORTED or SORTED WITHIN TYPE chain. 



been defined as 



For example: 



01 UNIT-I4ASTER-REC; 

TYPE IS 070; 

RETRIEVAL VIA MASTR FIELD. 
02 IdASTR; SIZE 8 NUMERIC. 
9 8 UNIT CHAIN riASTER; 

CHAIN-ORDER IS SORTED. 



01 UNIT-REC; 

TYPE IS 010; 

RETRIEVAL VIA CALC CHAIN; 

PAGE RANGE IS 1 TO 20 000. 
02 UNIT-CODE; SIZE 4 NUMERIC. 
02 REPORTING-UNIT; SIZE 4 NUMERIC. 
02 ORG-NAME; SIZE 20 ALPHANUMERIC. 
02 TOTAL-BUDGET; SIZE 7 NUMERIC. 
9 8 UNIT CHAIN DETAIL; 

ASCENDING KEY IS UNIT-CODE; 

DUPLICATES NOT ALLOWED; 

SELECT UNIQUE MASTER; 

MATCH-KEY IS IIASTR. 

Field-name-2 must be a level 02 field entry within the record 
being defined. In the above example, UNIT-CODE meets this 
requirement. However, field-name-2 may not be a level 02 field 
entjry which has been specified at level 01 as a RETRIEVAL VIA 
field-name FIELD. In the above example MASTR cannot be a KEY. 
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When multiple sort control keys are required to define a chain 
sequence, the various field-names must be presented in sequence 
from major control field to minor, thus establishing the sort 
level of each field. Each sort control key must be 
independently defined as either ASCENDING or DESCENDING. 



When ASCENDING is used, the sorted sequence will be from lowest 
value of key to highest value. 



When DESCENDING is used, the sorted 
highest value of key to lowest value. 



sequence will be from 



Option 2, ASCENDING RANGE KEY is used when the record is to 
serve as a range master. A range master is a detail record in a 
sorted chain. In addition, it is the master of a chain which 
includes detail records falling within the range of the range 
master. The value contained in field-name-3 controls the 
ascending sequence of the range masters. It also defines the 
upper range limit of details referenced by the range master. 

Range masters are used primarily to segment long sorted chains. 
The purpose is to reduce access time in reaching the detail 
records. 



The ASCENDING RANGE KEY clause modifies the search method of 
the RETRIEVE record-name RECORD and STORE record-name RECORD 
statements by searching the chain until the sort key value of 
the retrieved record is equal to or greater than the 
working-storage value of the record to be retrieved or stored. 



If the RANGE option is not specified, the chain is searched 
until the sort key value of the retrieved record is equal to 
the working-storage value of the record to be retrieved. 

A payroll master chain structure of employee detail records is 
illustrated below: 



Payroll 

Master 

Record 



Employee 

Detail 

Record 



Master Chain 
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By introducing range masters into the structure, the one long 
chain could be divided into several smaller ones. The structure 
would look like this: 



1 

Payroll 

Master 

Record 


h 


Payroll 

Range 

Master 




Employee 

Detail 

Record 




^ 



Master Chain 



Range Chain 



The steps used to create this structure include: 

1. Define Payroll Master record, 

a. Designate it master record of Payroll-Master chain. 

b. Designate CHAIN-ORDER as SORTED or SORTED WITHIN 
TYPE. 

2. Define Payroll Range Master record. 

a. Name within it a field RANGE-NO. 

b. Designate it as a detail 



Designate it as a 
Payroll-Master chain. 



record 



m 



the 



c. Name RANGE-NO field as an ASCENDING RANGE KEY. 

d. Designate it master record of Payroll-Range chain. 
3. Define Employee Detail record. 

a. Name within it a field EMPL-NO. 

b. Designate it as a detail record in Payroll-Range 
chain. 

c. Name RANGE-NO as MATCH-KEY for the Payroll-Range 
chain. 

d. Name EMPL-NO as a sort key or match-key for this 
record. 



At execute time the user would identify a range master by 
placing an employee number into RANGE-NO in working-storage. 
I-D-S selects the first range master in sequence whose value in 
RANGE-NO is equal to or greater than the value placed in 
RANGE-NO in working-storage. Once the range master is found, 
the detail record can be stored or retrieved along its chain by 
using EMPL-NO as control. 
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SEL'ECT 



Select 



Function: 



To specify the rule for selecting a specific master record 
from all master records of a given type when a detail record 
is being stored or retrieved by the RETRIEVE record-name 
RECORD statement or STORE record-name RECORD statement. 



Format: 



; SELECT 



UNIQUE 



CURRENT 



MASTER 



Notes : 
1. 



One of the two forms of the SELECT clause must be used in each 
Chain Description entry which specifies a level 98 chain 
detail. The SELECT clause does not apply to a CALC CHAIN DETAIL 
because the Page Header record (specified by the output of the 
randomizing procedure) is the unique master to be selected. 

When UNIQUE is specified, the master is selected by matching 
the data field values in a master record with those initialized 
by the user in working storage. The fields to be initialized 
are those specified as I4ATCH-KEY fields in the level 9 8 entry. 

When CURRENT is specified, the master of a chain relevant to 
current detail record of the named chain is selected. If the 
current record of the named chain is already the master, then 
it is selected. The responsibility for establishing the current 
master of the chain-name is left to the user. 
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r4ATCH-KEY 



Match-Key 



Function: To specify those fields which must be initialized by the user 
in working-storage to allow unique identification of the 
master record of a chain. 



Format: 



MATCH-KEY is field-name-4 T 



IIATCH-KEY . 



3] 



Notes : 



This clause applies only to option 2 of the Chain Definition 
Entry. It must be used in conjunction with the SELECT UNIQUE 
MASTER clause. 

Only those fields necessary to uniquely select the appropriate 
master need be specified. If the master is a detail record in a 
higher level chain structure, match-key fields for selection of 
its master are named with it, but need not be named with this 
record. For example: 



Master 


Record A 


^ 


Cha 

r 


Mas te r 


Record B 


Cha 


Detail 


Record C 



When Master Record B is defined as a detail in Chain A, 
match-key fields are named for Master Record A. When Detail 
Record C is defined as a detail in Chain B, match-key fields 
are named for Master Record B, not for Master Record A. 
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The fields named in MATCH-KEY clauses depend upon the RETRIEVAL 
clauses specified for each of the higher-level master records 
defining the hierarchical structure which includes this record 



The following rules should be used in naming the appropriate 
master record fields with MATCH-KEY clauses in this record. 

If the master record is defined as a primary record by the 
RETRIEVAL VIA field-name FIELD clause, the field-name must 
be named as a MATCH- KEY field-name for the detail record. 

If the master record is defined as a secondary record by the 
RETRIEVAL VIA chain-name CHAIN clause, each of the data 
fields which control the retrieval of the master record must 
be named as MATCH-KEY field names in this detail record. 
Thus, it is necessary that the master record be either in a 
sorted chain (sort keys) or a calculated chain (randomize 
keys) . 

If the master record is defined as a calculated record by 
the RETRIEVAL VIA CALC CHAIN clause, the RANDOMIZE fields 
for that master must be named as MATCH-KEY fields. 

All applicable MATCH-KEY fields must be initialized in working 
storage with the desired values before storing the record or 
before retrieving it using the RETRIEVE record-name RECORD 
verb. This includes the match-key fields for all higher level 
master records involved in the chaining structure even though 
the fields were not named with this record. 
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SYNONYM 



Synonym 

Function: To specify an alternate name for a field defined as a 
MATCH-KEY field. 



Format : 



; MATCH- KEY IS pE ield-name-5 fSYNONYM^""] field 



[" 



fSYNC 
| SYN 



'P 



-name- 4 



Notes 1 



The use of the SYNONYM option within the MATCH-KEY clause 
defines an alternate name (f ield-name-5) for the MATCH-KEY 
field (f ield-name-4) . 

The alternate name ( fie Id-name- 5 ) must have been previously 

defined in the Working-Storage Section in exactly the same 

format as the MATCH-KEY field for which it is an alternate. 

Example : 



MASTER RECORD 
TYPE X 
Control Field=100 



DETAIL 



^ 



r4ASTER RECORD 
TYPE X 
Control Field=200 



CHAIN A 



DETAIL 
TYPE Y 



CHAIN B 



PET 



DETAIL 



DETAIL 



DETAIL 



Detail record type Y is defined in chain structures A and B. 
Chains A and B have the same record type (X) as their master 
records. Therefore, each of the two different master records of 
type X must be uniquely identified when the type Y detail 
record is stored. 



I-D-S stores the detail record into Chain A with one store 
operation. The master record control field is named with a 
MATCH-KEY clause when detail Y is defined in both chains. In 
addition, for Chain B, an alternate working-storage area is 
named using the SYNONYM clause. Before storing the record, the 
user must initialize field-name-4 for the master record control 
field to 100 and the SYNONYM f ield-name-5 with 200. 
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LINKED-MASTER 



Linked-Master 



Function: To provide an extra chain field for each detail record of the 
chain which points to the master record of the chain. 



Format; 



D 



LINKED TO MASTER 







Note : 



This optional clause can improve the operation of the system by 
providing a direct path from each detail to the master of the 
chain, thus eliminating the need for processing all of the 
intervening detail records serially. 
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PROCEDURE DIVISION 



Execution of I-D-S procedural statements will STORE, RETRIEVE, MOVE TO 
WORKING- STORAGE, MODIFY and DELETE records. In addition, these 
statements will maintain the structure of the data file created by the 
defined chain relationships. 

The communication interface between I-D-S procedural statements and the 
balance of the COBOL Procedure Division is the working-storage areas 
which are established for each level 02 field defined in the field 
description entries of the I-D-S Section. All COBOL references to data 
from the I-D-S file are to these working-storage areas. 

The procedural statements of I-D-S may appear anywhere in the context of 
the COBOL Procedure Division. An I-D-S sentence must be preceded by 
ENTER IDS and terminated by a period. The sentence may contain any 
number of I-D-S statements. A paragraph name or section name may be 
assigned to an I-D-S sentence in a manner consistent with normal COBOL 
format. 

The following pages describe these various statement and verb formats. 



I-D-S Imperative Statements 



The imperative statements included in this section are provided as a 
part of the I-D-S language to extend the function of the basic STORE and 
RETRIEVE verbs. The DELETE, HEAD, MODIFY and MOVE statements apply only 
to the RETRIEVE verb; the DEBUG and GO statements may be used with 
either verb. OPEN must be used prior to any other I-D-S statements; 
CLOSE is self-explanatory. 

When these statements are used, they must occur in the order in which 
they are to be executed. They may be contained v/ithin the sentence 
beginning with the basic verb and ending with a period, or they may be 
used as separate sentences preceded by ENTER IDS. 

The specific formats of these statements and detailed discussions of the 
restrictions and limitations associated with each appear on the 
following pages . 
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CLOSE 



Close 

Function: To transfer all modified I-D-S pages currently residing in 

the core buffers to the mass storage unit. 

Format OPTION 1: 
CLOSE 

Format OPTION 2: 

CLOSE WITH LOCK 



Notes : 



1. This statement must be executed before any COBOL STOP RUN 
statement. No automatic closing takes place. 

2. OPTION 2 will insure that the data base cannot be opened again 
during the execution of the run unit. 

3. See (Chapter 6, Accessing an I-D-S File) for Sample Deck set 
up. 
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DEBUG 



Debug 



Function: To permit the selective dumping of pages, records, current 
data of program chain tables, or records of chain. The output 
produced will appear on the system execution report. 



Format: 



DEBUG CURRENT 



and 



( BUFFER I 
RECORD 
CCBLOC 



[ BUFFER 
RECORD . 
I CCBLOC 



[7chain-name-2 CHAIN] 
[ TtRACE chain-name- 3 CHAIn] 



Notes : 



Chain-name-2 and chain-name-3 must be 
defined by level 98 entries in the IDS 
Division. 



names of chains as 
Section of the Data 



The BUFFER option will result in an octal/BCD printout 
current page of the I-D-S data file. 



of the 



3. The RECORD option will result in an octal/BCD printout of the 
logical record last accessed by a successful STORE or RETRIEVE 
verb. 



The CCBLOC option will result in a printout of 
format: 



the following 



Ref . 


Code 


in 


octal 


Ref . 


Code 


in 


octal 


Ref. 


Code 


in 


octal 


Rec. 


Type 


m 


octal 



Ref. 


Code 


in 


BCD 


Ref. 


Code 


m 


BCD 


Ref. 


Code 


m 


BCD 


Rec. 


Type 


m 


BCD 


Error Code in BCD 



DIRECT REFERENCE 
FIRST REFERENCE 
LAST REFERENCE 
RECORD TYPE 
ERROR REFERENCE 

The chain-name-2 CHAIN clause will result in an octal/BCD 
printout of the reference codes of the named chain as follows : 

CHAIN TABLE HEAD 

CHAIN TABLE PRIOR 

CHAIN TABLE CURRENT 

CHAIN TABLE NEXT 

The TRACE chain-name-3 CHAIN clause will result in a 
side-by-side octal/BCD printout of all of the records contained 
within the specified chain. 



Ref. 


Code 


in 


octal 


Ref. 


Code 


in 


octal 


Ref. 


Code 


in 


octal 


Ref. 


Code 


m 


octal 



Ref. 


Code 


in 


BCD 


Ref. 


Code 


in 


BCD 


Ref. 


Code 


in 


BCD 


Ref. 


Code 


m 


BCD 
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DELETE 



Delete 



Function: To delete the current record of the program and remove it 

from all chains in which it is a detail to make the record 

unavailable for processing and, optionally, to perform 

certain functions when specified detail record types are 

accessed during the deletion process. 



Format: 






; DELETE CURRENT record-name-1 RECORD foN record-name-2 DETAIL 

[ move to working-storage] 

[ head chain-name-1 CHAIN [hEAD..7| 
[ perform procedure-name-l] 
[ go to procedure-name-2] 



[OTHERWISE 



I ELSE 



ON record-name-3 DETAIL... 



Notes : 
1, 



The record deleted by the DELETE statement is the 
retrieved (CURRENT) by the RETRIEVE verb. 



record last 



The deletion process deletes a record only when there are no 
dependent details in its chains. When details are present, the 
system first attempts to delete the dependent detail records. 
Since the hierarchical data structure of I-D-S may involve many 
levels of detail records, this statement should be used with 
care. 

The execution of a DELETE statement makes the record retrieved 
unavailable for any further processing, and an attempt to 
reference such a record results in an error condition. 
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4. The conditional statement ON re cord-name- 2 DETAIL is used only 
when it is necessary to interrupt the deletion process when a 
dependent detail of the type named by record-name-2 is 
encountered. When the statement is used, various imperative 
statements immediately following are executed prior to the 
actual deletion of the detail record. After the execution of 
these statements, the deletion process is continued unless one 
of the statements was a GO TO statement. In this case, control 
is not returned to the deletion process. When the record 
encountered is not the type named by record-name-2 it is 
compared with the type named by record-name-3. The reserved 
words OTHERWISE or ELSE separate the tests for different record 
types that may be encountered. A record encountered which does 
not match any of the specified record types is deleted in the 
normal manner. 

5. As a record is deleted it is not implicitly moved to working 
storage. 

6. The CURRENT record-name-1 RECORD option causes the record type 
of the record named to be compared with the record type in the 
current record definition. If they are not equal, an error code 
(RIO) is returned to the user and no deletion takes place. 
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GO 

Go 

Function: To depart from the normal in-line sequence of procedures. 

Format : 

;G0 TO procedure-name-1 



Notes : 



1. Procedure-name-1 may be any COBOL or I-D-S procedural paragraph 
in the Procedure Division. 

2. When this statement is encountered within the I-D-S sentence, 
all subsequent statements are bypassed and control is 
transferred to the procedure ngmed. 

3. GO TO may be used with: 

If ERROR. . . 

If record-name... 

ON record-name DETAIL... 

4. GO TO must be used with: 

RETRIEVE EACH AT END... 
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Head 



Function: To retrieve the master record of the chain specified and to 
move its data fields to working storage making it available 
for processing. 



Format: 



; HEAD chain-name-1 CHAIN HhEAD. . J] 



Notes : 
1. 
2. 



The chain-name-1 must be a chain defined by a level 98 entry. 

If no records of this named chain have been processed, or if 
the last record has been deleted, an error condition is noted. 

A data structure in I-D-S shorthand is shown below. 



REC-AD 



REC-YR 



CHAIN-Y 



CHAIN-A2 



KEC-AC 



CHAIN-Al 



REC-XR 



REC-AB 



CHAIN-X 



CHAIN-A 



REC-AA 



In this case, assume that REC-AA was the record initially 
retrieved by the RETRIEVE verb. At this point, three chains 
include REC-AA, therefore, three possible master records may be 
referenced by the HEAD statement. Notice, however, that once 
HEAD has been used to reference CHAIN-A, the next higher level 
CHAIN-Al can be referenced. 
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nevec 



This statement includes an implied move of the record i 
to working storage. 

After execution of this statement, the master records retrieved 
are the CURRENT records of their respective types. They become 
the CURRENT records in each chain in which they are defined as 
details. However, they are not the CURRENT records in chains in 
which they are defined as master records. In those chains, the 
detail record which leads to the master is the CURRENT record. 

Note that the function of the statement is very similar to that 
of the RETRIEVE MASTER RECORD statement, except for the manner 
in which CURRENT of chain is maintained (Note 5) • 

Example : 

Assume chains X, Y, A, and Al are not PRIOR processable or 
HEADED (linked to I4ASTER) . The chain tables show REC-AA after 
it has been retrieved via chain-X and before execution of the 
HEAD CHAIN-A CHAIN statement. Note that there is a chain table 
for each chain in which REC-AA is a detail record. 



REC-AA 
Chain-X 



MASTER 


REC-XR 


PRIOR 


REC-AA- 1 


CURRENT 


REC-AA 


NEXT 


REC-AA+1 



REC-AA 
Chain-Y 



I^STER 


Unknown 


PRIOR 


Unknown 


CURRENT 


REC-AA 


NEXT 


REC-AA+1 



REC-AA 
Chain-A 



MASTER 


Unknown 


PRIOR 


Unknown 


CURRENT 


REC-AA 


NEXT 


REC-AA+1 



After execution of the HEAD CHAIN-A CHAIN statement, the chain 
tables appear as shown below. Note that the chain tables for 
chains X and Y remain unchanged. The only change to the chain-A 
table is that the chain table's I4ASTER position has been 
updated with the reference code of the master record. Thus, if 
a RETRIEVE NEXT or PRIOR of chain X, Y, or A is issued, REC-AA 
is the CURRENT record from which I-D-S moves to the NEXT or 
PRIOR data record of chain X, Y, or A. 
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REC-AA 
Chain-X 



MASTER 


REC-XR 


PRIOR 


REC-AA- 1 


CURRENT 


REC-AA 


NEXT 


REC-AA+1 



REC-AA 
Chain-Y 



MASTER 


Unknown 


PRIOR 


Unknown 


CURRENT 


REC-AA 


NEXT 


REC-AA+1 



REC-AA 
Chain-A 



MASTER 


REC-AB 


PRIOR 


Unknown 


CURRENT 


REC-AA 


NEXT 


REC-AA+1 



After the HEAD CHAIN-A CHAIN statement is executed, the chain 
Al table is updated as shown below. 



REC-AB 
Chain-Al 



I4ASTER 


Unknown 


PRIOR 


Unknown 


CURRENT 


KEC-AB 


NEXT 


REC-AB+1 
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MODIFY 



Modify 



Function: To modify the contents of all or selected fields of the 
current record and/or to relink any chain V7hich may be 
affected by the modification of a control field. 



Format Option 1: 

; MODIFY field-name-1 Tf ield-name-2 , . ."1 



Format Option 2 : 

; MODIFY CURRENT record-name fd 



field-name-1 [Tf ield-name-2 . .T] 



Notes Option 1: 

1. The fields to be modified must be level 02 entries. The 
contents of working storage are moved to the equivalent field 
of the current record which is in a data page buffer. 

2. Field-name-1, f ield-name-2 , may be control fields for the 
record. Modifying these fields can result in the record being 
logically repositioned within the I-D-S environment. Depending 
on the type of control field involved, I-D-S will take the 
following actions : 

Modifying a sort key field . The record is relinked into its 
chain according to the new value of the sort field. The sort 
field in the record is then modified. 



Modifying a randomize field . The record is relinked into a 
new CALC chain according to the new value of the randomize 
field. The randomize field in the record is then modified. 
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3. In relinking a record in a chain, I-D-S uses all the control 
fields in working storage defined in the record for that chain. 
Therefore, the user must not only initialize the control field 
to be modified, but the others as well. Depending upon the 
control fields involved, I-D-S will take .the following action: 

Modifying a match-key fiel d named to uniquely identify a 
master record . The record is relinEed to the new master 
uniquely identified by the new value in the match-key field. 
Since the field is not in the detail record, no actual field 
modify occurs. 

Modifying field-name-5 of a I-IATCH-KEY IS field-name-5 
SYNONYM field-name-4 clause . The record is relinked to a new 
master record along the chain for which the clause was 
named. The new master was uniquely identified by the new 
value in field-name-5. In this case, field-name-5 may or may 
not be a field in the record on disc. If it is, it is 
modified. If it is not, no further action is taken. 

4. In no case is a record ever physically moved from one page to 
another in the I-D-S environment. Therefore, an attempt to 
modify the prime retrieval field of a primary record results in 
an error condition. Such a modify could result in a record 
needing to be moved from one page to another. 

5. If the successful execution of the MODIFY statement would 
create DUPLICATE records in chains where they are not allowed, 
the modification will not be executed and an error occurs. 

Notes Option 2: 

1. Notes for option 1 also apply to option 2. 

2. The record type of the record named is compared with the record 
type in the current record definition. If they are not equal, 
an Rll error code is returned to the user and no modification 
takes place. 

3. If the field name option is not specified, all fields in the 
record are modified. 
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I-IOVE 



Move 






To move all or selected fields of the current record (record 

last processed) to working storage, or to move the contents 
of a chain table to working storage. 



Format Option 1: 
;HOVE TO 



WORKING-STORAGE field-name-1 [7f ield-name-2 . ._J 



Format Option 2 : 



TCHAIN TABL E" 
MASTER 



MOVE chain-name- 1 < PRIOR 

i current 
Cnext 



TO fie Id-name- 3 



Notes : 
1. 



The implied source of an option 1 MOVE is the current record 

(last RETRIEVE or STOKE). 

Option 1 must be used before any reference can be made to the 
data in the record. 

When the statement includes the list of fields identified by 
field-name-1, f ield-name-2 , etc., only those fields are moved 
to working storage. Otherwise, all fields are moved. 

When CHAIN TABLE is used in option 2, the master, prior, 
current, and next chain fields of the named chain are moved to 
four contiguous subfields specified by f ield-name-3 . 
Fie Id-name- 3 should be equivalent to the form: 



01 field-name-3 
02 Master- chain 
02 Prior-chain 
02 Current-chain 
02 Next-chain 



PICTURE 9(6) COMP-1 

PICTURE 9(6) COMP-1 

PICTURE 9(6) COMP-1 

PICTURE 9(6) COMP-1 



When MASTER, PRIOR, CURRENT, or NEXT is used in option 2, the 
specified chain-table entry is moved to field-name-3. 
Field-name-3 should be equivalent to the form: 



02 field-name-3 



PICTURE 9(6) COMP-1 
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OPEN 



Open 



Function: To initialize the processing of an I-D-S data file. 



Format ; 



OPEN 



FOR 



RETRIEVAL 



UPDATE 



[with AUTHORITY-KEY integer-l] 



Notes : 
1. 



This statement must be executed before any other I-D-S verb is 
executed. 

When the I-D-S file is opened for RETRIEVAL, the STORE, DELETE, 
and MODIFY statements of I-D-S are not operative. An attempt to 
use these statements under these conditions results in an error 
condition during program execution. Logically deleted records 
will not be physically deleted. If FOR RETRIEVAL or UPDATE is 
not specified, UPDATE is assumed by I-D-S. 

The AUTHORITY-KEY clause enables access to various record types 
which may be protected by a defined AUTHORITY code. (See Data 
Division, Record Description.) The value of integer-l may not 
exceed 4095 (10) . 



When this clause is used, each reference to a record of the 
I-D-S file involves a match of the AUTHORITY value defined for 
the record with the AUTHORITY-KEY supplied. When a valid match 
occurs, the I-D-S verb is allowed to function normally. 
Otherwise , the function of the verb is aborted and an error 
condition is returned to the user's program. 



The exact details of the matching process may be modified 
each installation to suit individual requirements. 



with 
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RETRIEVE 



Retrieve 



inunction I To iTtitirisvc a rccoiru an»_i luSjce 



Format Option 1: 



(re CO r d-n arae - 1 



RECORD 



RETRIEVE (/ PRIOR 
1I4ASTER 



CURRENT record-name- 1 

RECORD OF chain-name-2 CHAIN 



NEXT 



EACH AT END GO TO procedure-name- 1 
V^ DIRECT 



Format Option 2 : 

RETRIEVE NEXT RECORD OF CALC CHAIN 



Notes ; 



Record-name-1 must be the name of the record level 01 entry 
defined in the IDS Section of the Data Division. 

Chain-name-2 must be the name of a chain defined by a level 98 
entry in the IDS Section of the Data Division. 

Regardless of the option used, this verb causes the record 
referenced to be retrieved and made available in the memory 
buffer. This action may or may not require that a page be 
transmitted from the mass storage device, since the record may 
already be in memory. No other action, such as moving the 
record to working storage takes place. 

The reference code of the record retrieved is accessible in the 
communication cell named DIRECT-REFERENCE after the retrieval 
process is completed. 

Of the seven options available with the RETRIEVE verb, two may 
be classified as absolute. This means that only one record will 
satisfy the retrieval specification when one of the following 
options is used. 
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RETRIEVE record-name-1 RECORD 

The record retrieval action is predicated upon the RETRIEVAL 
VIA clause defined in the level 01 entry in the IDS Section 
of the Data Division. The record retrieved depends on the 
values contained in the control fields of working storage 
which uniquely identify the record. 

If the record is retrieved VIA field-name FIELD, the 
contents of the named field (the reference code of the 
record to be retrieved) are used. 

If the record is retrieved VIA CALC CHAIN, the contents of 
the RANDOMIZE fields are used. 

If the record is retrieved VIA chain-name CHAIN, the 
contents of its I4ATCH-KEY and ASCENDING and DESCENDING sort 
key fields are used. 



RETRIEVE DIRECT 

The record to be retrieved is identified by the reference 
code stored in a communication cell named DIRECT-REFERENCE. 
The user is responsible for initializing the communication 
cell prior to the execution of this command. 

The other five options may be classified as context dependent, 
since the actual record retrieved is dependent upon previous 
record processing. 



RETRIEVE CURRENT record-name-1 RECORD 

The record retrieved will be the current record of 
record-name-1 specified. If no record of this name has been 
processed, or if the last record processed has been deleted, 
an error condition is noted. 



/ "next ^ 

( PRIOR > 



RETRIEVE ( PRIOR > RECORD OF chain-name-2 CHAIN 

masterJ 



Record retrieval depends upon the current record of the 
chain named. If NEXT or PRIOR is used, the appropriate 
record is retrieved regardless of the record type. If MASTER 
is specified, the master record of the chain named is 
retrieved. If no records of the chain have been processed, 
or if the last record has been deleted, such that no records 
exist in the chain, an error condition is noted. 
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RETRIEVE EACH AT END GO TO procedure-name-1 

This option facilitates a reference code ascending sequence 
serial search of the I-D-S data file. This statement will 
retrieve the first record, in ascending reference code 
sequence, that has a reference code value equal to or 
greater than the reference code value stored in the 
FIRST-REFERENCE communication cell named. However, if the 
reference code value of the retrieved record is equal to or 
greater than the value stored in the communication cell 
named LAST-REFERENCE, control is transferred to 
procedure-name- 1 . 

When a record is retrieved, the sum of its reference code 
value plus one will be stored in FIRST- REFERENCE, which 
initializes it for a subsequent execution of RETRIEVE EACH . 

5. An option 2 entry record retrieval depends on the CURRENT 
record within the chain specified. If NEXT is used, the 
appropriate record is retrieved regardless of the record type. 
These record specifiers can be used only if some record has 
already been processed which is a member of the CALC chain. 

6. If a record cannot be retrieved according to the specifications 
of the retrieval statement, an error condition is noted. 

7. The record retrieved is recorded as the CURRENT record of its 
type and the CURRENT record in each chain in which it is a 
master or detail. 

8. Example: 

The following statements will retrieve the master and detail 
records of the calc chain. The master of the calc chain is the 
Page Header record. 

COI-IPUTE DIRECT-REFERENCE = page-number * 64. 
ENTER IDS. 

RETRIEVE DIRECT (master of calc chain) 

IF ERROR 

RETRIEVE NEXT of CALC chain. 

IF RECORD-TYPE = 100 GO TO end-chain. 
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RETURN 



Return 



Function: To relink the selected records of a specific chain into the 
order as returned by the sort. To return the data fields of 
the I-D-S record to Working-Storage. 

Format: 

RETURN chain-name- 1 CHAIN 

AT END GO TO procedure-name- 1 

Notes : 

1. RETURN can only be used v;ithin an OUTPUT PROCEDURE associated 
with a SORT statement for sort-file-1. Any other use of a 
RETURN statement will lead to unpredictable results at object 
execution time. 

2. The execution of the RETURN statement causes the next record in 
sorted order (according to the keys listed in the SORT 
statement) to control the retrieval of the corresponding I-D-S 
record in chain-name-1 . The I-D-S record is then relinked into 
its ordered position in chain-name-1 as though the CHAIN-ORDER 
is described as AFTER. The chain will appear as: MASTER, 1st 
record from sort, 2nd record from sort, etc. 

3. The data fields of the sorted selected I-D-S record will be 
moved to the I-D-S working-storage fields. The record returned 
from sort will not be available for processing in the record 
area associated with sort-file-1. 

4. The I-D-S record will be current of program, current of type, 
and current of chain-name-1. The record v/ill not be current in 
any other chains in which it participates. 
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5 . Example : 

FILE SECTION. 
SD ST-FILE. 

DATA RECORD IS SORTR. 
01 SORTR. 

02 PRIOR- REF PIC 9(6) COMP-1. 
02 CUR-REF PIC 9(6) COMP-1. 
02 KEY-1 PIC 9999. 
02 KEY-2 PIC 999999. 



SORT-CALL SECTION. 

SORT ST-FILE ON ASCENDING KEY KEY-1, KEY-2. 

INPUT PROCEDURE IS PHASE-1. 

OUTPUT PROCEDURE IS PHASE-2 . 



ENTER IDS. 

RETURN TST-CHAIN CHAIN 

AT END GO TO PHASE- 2X. 
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SORT 



Sort 

Function: To sort the selected records of a specific chain into the 
specified order. 

Format: 

Tascending 

SORT sort-file-1 ON < ^ KEY field-name-1 

1 DESCENDING 



r, f ield-naine-2 • .Tl 



J ASCENDING | 

;0N ( y KEY 

DESCENDING ( 



( input PROCEDURE IS section-name-1 [tHRU section-name-2~| 
USING file-name-2 



GIVING chain-name- 1 CHAIN 



Notes; 



1 The COBOL SORT is used to accomplish the sort of the selected 
I-D-S records. 

2., All rules of COBOL SORT must be observed. The I-D-S exceptions 
are discussed in the following notes. 

3. The sort-file-1 Record Description must be equivalent to the 
form: 

01 SORT-IDS-REC. 

02 Prior-ref PIC 9(6) COMP-1. 
02 Current-ref PIC 9(6) COMP-1. 
02 Sort-key-1. 



The prior-ref field must be the first entry 
in the sort record. 

The current-ref field must be the second 
entry in the sort record. 
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4. The INPUT PROCEDURE must: 

RETRIEVE the 1-D-S records from the specific chain. 

MOVE the PRIOR reference or zero to the prior-ref 
field. 

MOVE the CURRENT reference to the current-ref 
field. 

MOVE the data fields into the sort KEYS. (Other 
data may be placed in the sort record; however, 
I-D-S will not make use of the data.) 

RELEASE the sort record. 

5. The GIVING chain-name-1 CHAIN clause means that all sorted 
records in sort-file-1 are used during the relink process to 
control the retrieval of the corresponding I-D-S record in 
chain-name-1. The I-D-S records are relinked into chain-name-1 
as though the CHAIN-ORDER is described as AFTER. The chain will 
appear as MASTER, 1st record from sort, 2nd record from sort, 
etc. 

6. If the prior-ref field is set to zero the execution of the 
relink function may be inefficient. 

7. The chain may contain multiple record types. If only one type 
of record is selected for sorting, the selected sorted records 
will appear in order following the master record. The remaining 
record types will retain their relative order in the chain 
after all of the selected sorted records. 

8. The USING file-name-2 option requires file-name-2 to be of the 
described format. The records must be equivalent to records 
which would result by using the INPUT PROCEDURE option. All 
records must be present in the selected chain. 

9. At the completion of SORT the last record in the sort sequence 
will be current of program, current of type, current of 
chain-name-1, and its data fields will be moved to the I-D-S 
working-storage fields. It will not be current in any other 
chains in which it participates. 
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10. Example; 



FILE SECTION. 
SD ST-FILE. 

DATA RECORD IS SORTR. 
01 SORTR. 

02 PRIOR-REF PIC 9(6) COMP-1 
02 CUR-REF PIC 9(6) COMP-1, 
02 KEY-1 PIC 9999. 
02 KEY-2 PIC 999999. 



SORT-CALL SECTION. 

ENTER IDS. 

SORT ST-FILE ON ASCENDING KEY KEY-1, KEY-2 

INPUT PROCEDURE IS PHASE- 1 

GIVING TST-CHAIN CHAIN. 



ENTER IDS. 

RETRIEVE MSTR. 
LOOP A. 
ENTER IDS. 

RETRIEVE NEXT TST-CHAIN CHAIN. 
ENTER IDS. 

IF MSTR RECORD GO TO PlLAST. 
ENTER IDS. 

IF DET-2 RECORD GO TO LOOPA. 
ENTER IDS. 

MOVE. 

MOVE FIELDAl TO KEY-2. 

MOVE FIELDBl TO KEY-1. 
ENTER IDS. 

MOVE TST-CHAIN PRIOR TO PRIOR-REF. 
ENTER IDS. 

MOVE TST-CHAIN CURRENT TO CUR-REF. 



STORE 



Store 

1 _•. (-J_T^_ .,1_J_T* T T -3-,jr^, JZ ^v-,-^ 4-^ wi-^Vrt 4-V.^ vr 

CllciXIl J_±t^XU;3 Wlliv^ii lidvc ijcc:ii uc:xj-ii^i^f diita u^ iiitij^.ti t_.ii^ j_^ 

available for processing. 



Format: 

STORE record-name- 1 RECORD 



Notes ; 



1. Record-name-1 must be defined as a level 01 entry in the IDS 
Section of the Data Division, 

2. When this verb is used, the following is assumed: 

Working-Storage for this record has been initialized with the 
data contents for the record. 

Any other control fields required to provide unique 
identification of the master records of the defined chains 
which include record-name-1 have been initialized in their 
respective working-storage areas. 

3. The record is placed into the file as defined by the PLACE 
NEAR or RETRIEVAL VIA clauses of the Record Description entry. 

4. The reference code assigned to the record is left in the 
communication cell DIRECT-REFERENCE after the storage process 
is complete. 

5. The record is recorded as the CURRENT record of its type and 
the CURRENT record in each chain in which it is a master or 
detail. 

6. If the storage process creates a duplicate record in violation 
to any DUPLICATES NOT ALLOWED clause, or if the unique or 
range master selected cannot be retrieved, the storage process 
is terminated with all linkages restored as before and an 
error condition is noted. 

7. When a primary record is stored, its reference code is moved 
to the working-storage field named by the RETRIEVAL VIA 
field-name FIELD clause. 
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8. Placement of records by I-D-S is influenced by the RETRIEVAL 
VIA, PAGE-RANGE, PLACE NEAR, and INTERVAL Clauses. The 
following summaries show priority of record storage criteria. 
If PAGE-RANGE is specified and the resultant page number falls 
outside the page range, the page number is always scaled down 
to fall within the page range. 

9. Primary records are stored as follows: 

a. If INTERVAL is specified and the current page is not zero, 
on the page calculated by INTERVAL plus page of current 
record of the type. 

b. If nor as a, above, on the page specified in 
DIRECT-REFERENCE, if it is not zero. 

c. If not as a or b, above, and if PLACE NEAR is specified 
and the CHAIN-ORDER is SORTED, SORTED WITHIN TYPE, FIRST, 
or LAST, on the page of the master record of the chain 
named in the PLACE clause. 

d. If not a, b, or c, above, on the page of the current 
record of the chain-name. 

e. If none of the above, on a page most convenient to I-D-S. 
10. Secondary records are stored as follows: 

a. If INTERVAL is specified and the current page is not zero, 
on the page calculated by INTERVAL plus page of current 
record of the type . 

b. If not as a, above, and if PLACE NEAR is specified and the 
CHAIN-ORDER is SORTED, SORTED WITHIN TYPE, FIRST, or LAST, 
on the page of the master record of the chain named in the 
PLACE clause. 

c. If not as a or b, above, on the page of the current record 
of the chain-name. 

d. If not as a, b, or c, above, and if the CHAIN-ORDER of the 
RETRIEVAL VIA chain is SORTED, SORTED VJITHIN TYPE, FIRST 
or LAST, on the page of the master record of the chain 
named in the RETRIEVAL VIA chain-name CHAIN clause. 

e. If none of the above, on the PAGE of the current record of 
the RETRIEVAL VIA chain. 
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11. Calculated records are stored as tollows : 

On the page calculated by randomizing the contents of fields 
named in the RANDOMIZE ON field— name clause, 

12. Record storage is subject to the following Overflow rule: 

If space is not available in the specified page, the record is 
placed on the first page in the direction of ascending page 
numbers in which there is available space as determined by 
search of the inventory records. Pages which do not have 
inventory records are bypassed until all pages controlled by 
inventory are searched. If space is not found by the inventory 
search, then all pages not controlled by inventory are 
searched. The boundaries specified by the use of a PAGE-RANGE 
clause are observed in this process. 
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I-D-S Conditional Statements 

The conditional statements of I-D-S are logical extension of the basic 
STORE and RETRIEVE verbs. Generally, they involve the key word IF, 
followed by the condition to be tested, followed by the imperative 
statements to be performed. 

I-D-S conditional statements are of two general forms; either form may 
appear in the string of statements following a basic verb. 

The specific formats of these statements and a discussion of their 
restrictions and limitations follow. 

Following the explanation of the IF-clause formats, PERFORM and USE, 
which also are conditional, are discussed. 
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If 



Function: To conditionally transfer control to an alternate procedure. 



Format Option 1: 

;IF record-name-1 RECORD statement-1 ;statement-2 . . . 



[OTHERWISE 



I ELSE 



statement- 3 ;statement-4 



& 



•3 



Format Option 2: 

;IF ERROR statement-1 



(OTHERWISE 



ELSE 



statement-2 ; statement- 3 



b 



■2 



Notes Option 1: 



The IF record-name-1 RECORD clause is specifically designed to 
support those retrieval statements where the type of record to 
be retrieved is unknown until after the retrieval is complete. 
Specifically, the IF record-name clause may only be used in 
conjunction with RETRIEVE DIRECT, RETRIEVE EACH, RETRIEVE NEXT 
and RETRIEVE PRIOR. 

Statement-1, 2, 3, 4 may be any one of the following 
statements: MOVE TO WORKING-STORAGE, IIODIFY, DELETE, HEAD, 
PERFORM, or GO TO. In addition, statement-3 may be another IF 
record-name clause. This allows multiple test-branch logic 
based on record type. 

The record type field in the record just retrieved is compared 
with the record type named by record-name-1. If the record 
types are the same, statement-1 and subsequent statement-2 ' s 
are executed in sequence and then control is transferred to the 
next sentence in the program. A GO TO procedure-name statement 
may be used as either statement-1 or statement-2 to cause a 
transfer to some alternate sentence in the program. 

If the record retrieved is not the type specified, then control 
is transferred around statement-1 and subsequent statement-2 ' s 
to statement-3, or to the next sentence in the absence of an 
OTHERWISE or ELSE phrase. 
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Notes Option 2\ 



1. This form may only follow a STORE or RETRIEVE verb or a MODIFY , 
DELETE , HEAD , or MOVE imperative statement. 

2. Statement- 1 may only be a GO TO or a PERFORM imperative. 
Statement-2, statement-3, etc., may be any imperative statement 
appropriate to the basic verb, or a conditional of form 1, if 
appropriate. 

3. The IF^ ERROR clause tests the occurrence of any logical error 
as a result of the last I-D-S statement. The specific errors 
which may occur are a function of the statement executed. The 
user program may determine the type of error by referring to 
the ERROR- REFERENCE communication cell. 

4. If an error occurs because of hardware, data description, or 
improper use of an I-D-S function, the program is brought to an 
orderly halt, the file closed and the program aborted and 
memory dumped, if requested, with the appropriate error 
message. 

5. If a data-dependent error is detected by I-D-S, an error code 
will be stored in ERROR-REFERENCE and control will pass to the 
IF ERROR STATEMENT. 

6. The execution of a subsequent I-D-S statement will reset the 
error code stored in ERROR-REFERENCE. 



87 



PERFORM 



Perform 



Function: To depart from the normal in-line sequence of procedures in 
order to execute a specific procedure and then return to the 
normal seauence. 



Format: 



; PERFORM procedure-name- 1 Fthru procedure-name- fl 



Notes : 



Procedure-name- 1 may be any COBOL procedural paragraph in the 
Procedure Division. 

For other details concerning the PERFORM statement see the 
GE-600 Line COBOL Reference Manual , CPB-1652. Only the simple 
PERFORM (option 1) is recognized within an I-D-S sentence. 

PERFORM may be used with: 

IF ERROR. . . 



IF record-name... 

ON record-name DETAIL. . . 

If PERFORM is used with ON record-name DETAIL, the 
performed may not contain any I-D-S functions. 
procedure-name-2 may not be used. 



procedure 

The THRU 
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USE 



Use 

Function: To specify procedures to be executed for I-D-S error 
conditions which are in addition to the standard procedures 
supplied by I-D-S. 



Format: 



USE procedure-name- 1 [tHRU procedure-name- 2] 
IwiTH trace"] 

['error- code- 1 L error-code-2 . . 71 



ON 

^ANY ABORT 



Notes : 



1. The USE clause may appear anywhere within the Procedure 
Division, 

2. The procedures specified will be executed by COBOL PERFORM. 

3. The procedures may not contain I-D-S statements. The activity 
will be aborted if any I-D-S statements are executed while the 
USE procedures are being performed. 

4. The I-D-S error codes used as error-code-1 and error-code-2 , 
etc., are defined in Appendix B. 

5. This clause may be used as many times as necessary to define 
appropriate procedures for specified error conditions. 

6. Not all error codes need be specified. Selected error codes 
may appear in only one USE statement. 

7. The ANY ABORT option may be used only once, and no other option 
may be used with it. 

8. When a trace is made, a plain language statement defining the 
error and, when possible, the records or chains involved 
appears on the execution report. (See Appendix B.) All fatal 
I-D-S error conditions are traced prior to aborting. 
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The trace prints (1) the name of the subroutine called, (2) the 
name of the subroutine that called it, and (3) the alter number 
from which (1) was called. The trace continues to the point at 
which the main program is the calling routine. An example is 

IDS ERROR 
RETRIEVE NEXT IN CHAIN NO CURRENT EXISTS MT0010-DT0020 

TRACE OF ABOVE ERROR FOLLOWS 

QUIT CALLED BY .QFWD AT ALTER 000149 
:QFWD CALLED BY .QCHN AT ALTER 000131 
:QCHN CALLED BY C.LDIN AT ALTER 00005 4 
TRACE END 

9 . Example : 

PROCEDURE DIVISION. 
START- PARA. 



ENTER IDS. 

USE ERROR-PARA- 1 ON DOl. 



ERROR-PARA-1. 

DISPLAY "DUPLICATE RECORD FOUND", 



ENTER IDS. 

USE ABORT-PARA- 1 THRU ABORT-END 
ON 15,31. 



ABORT-PARA-1. 

DISPLAY "RECOVERY REQUIRED - DELETE REPORTS" 



ABORT-END. 

CLOSE IN-FILE, OUT-FILE. 
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4. Translator Processing 



The I-D-S Translator is a system program which 
storage by the $ IDS control card. 



is called from system 



At the time of allocation for the I-D-S Translator, sufficient resources 
(memory and peripheral devices) are allocated to provide for COBOL. When 
the Translator has completed its function, it passes control to COBOL 
using the GECOS entry point GECALL. Figure 16 is a flow diagram of the 
compilation process of an I-D-S program. 



PAGE EJECT AND COMDK LABELING 



Page Eject in the Listing 



The user can indicate that he desires a page eject in the listing by 
including a *EJECT card at the appropriate point. A *EJECT (starting in 
column 7) is treated as comments by the translator and causes a page 
eject in the listing before the printing of the *EJECT card. The *EJECT 
is passed to COBOL and causes a subsequent print and page eject in the 
COBOL portion of the listing. 



COMDK Labeling 

The translator uses the contents of coliamns 73-80 of the first source 
card encountered and includes it in columns 73-80 of any compressed deck 
created by the translator. Labeling and sequencing conform to the 
specifications of lOEDIT (see GE-60 Line File and Record Control 
CPB-1003) . ' 
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I-D-S COBOL 

Source 

Language 



COBOL ^ 
Library 



GMAP 
Input 



Object 
Code 



I-D-S 
Translator 




COBOL 

Compiler 




i 



GMA.P 



Source 
Listing 




COBOL 

GMA.P 

Language^ 



Listing 

and 

Exception 

Report 



Assembly 
Listing 



JL 



GELOAD 



Load 
Map 



Subrouting 
Library 



Indirect Processing 



(Includes I-D-S Subroutines) 



Figure 16 . I-D-S Compilation and Execution Process 



92 



$ IDS CONTROL CARD DESCRIPTION 

The $ IDS control card is used to call the I-D-S Translator. The operand 
field is used to specify the system options. 

Example : 



16 



|IDS 



jOptions 



Options available with I-D-S/COBOL are listed below; 
are underlined. 



standard options 



LSTIN 
NLSTIN - 

LSTOU 

NLSTOU - 

NDECK 

DECK 

COMDK 



DUMP 

NDUMP 

0N6 

COPY 

NCOPY 
SYMTAB - 



An I-D-S listing and COBOL input listing will be prepared 

No I-D-S listing of input will be prepared. Option is reset 
to LSTIN prior to calling COBOL 

A listing of assembled object program output will be 
prepared by GMAP 

No listing of output will be prepared 

No binary object program deck will be prepared 

A binary object program deck will be prepared as output by 
GMAP 

A compressed deck of the source program will be prepared 
during translation 



NCOMDK - No compressed deck of the source program will be prepared 



Slave core dump will be produced if activity terminates 
abnormally 

Only a panel dump of program registers will be produced if 
activity terminates abnormally 

COBOL will generate a REF ON so that GMAP will build a 
Symbol Reference Table 

A COBOL copy prepass is required (see rule 4) 

No COBOL copy prepass is required 

GMAP will prepare a listing of the Symbol Reference Table 
(if one has been built) even though NLSTOU is also specified 



93 



Rules : 



1. The $ IDS control card must precede the source cards of each 
v^v-^^fv-^rn Q>- sulD^ro'^ram to be processed and must precede any 
other control card associated with that activity. 

2. The options can be listed in any order in the operand field. 

3. If no options are specified in the operand field, GECOS uses 
the standard options (underlined) . 

4. All source decks which use the COPY clause or the RENAMING file 
option (see GE-600 Line COBOL , CPB-1652) must use the COPY 
option. 
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SAMPLE OUTPUT PRODUCED BY THE IDS TRANSLATOR 

PAGE 1 

:SDL-12 CHG02 
54975 0? 09-26-68 10,291 UgbOO IlxntGWATfcU STORt TRa^JSLATUR 

iUS ALTfcR NOS, 

OUOOl IDENTIFICATION UIVISIUN , 
J0O02 PROGRAM-ID, 5IDS . 

00003 000030 AUTHOR, VANUEHBUR . 

00004 DATE-I^RITTE^ , 

U0005 000050 ENVIRONMfcNT DIVISION, 

00006 0OUO60 CONFIGURATIUN StCTlON, 

00007 000070 SOURCE-COMPUTER. GE-635, 
JOOOa 000080 OrtJfcCT-COMPUTEK. GP-635V 

00009 OOU090 INPUT-OUTPUT SECTION, 

00010 000100 FILE-CONTROI-. 

00011 000110 SELECT IDS TEST-FILE ASSIGN TO TF. 
■JD012 OOU130 I-O-COMTHOL. 

U0013 000150 DATA DIVISION, 

00014 FILE SECTlO-i, 

J0015 WnRKING-STO^AGE StCTION , 

00016 77 PAGbK ^"ICTURE 9999V9 COMPUT AT I CM AL-1 , 

00017 77 COUNT ^'ICTURE 9(6) CUMFUT AT I ON Afl . 

00018 77 LIMir-IS PICTUHt 999999 CGKPUT Ay I OnjaL-1 < 

00019 77 CTLR PICTU^^E 9(6) , 

00020 01 LDCPER , 

00021 C5 LIMIlER PICTURfc V(6) . 

00022 C5 FILLER SIZE 1 6, - 

00023 01 GONOQO , 

00024 05 TSTir PICTURE XXXXXX . 

00025 88 UGOON VALUE "GO " , 
j002o 05 FILLtK SIZE 74 . 
uOO?/ 00o39o IDS SECTION, 

01 CCdLOXK . 

02 DiRECT-RtFERErviCh SIZE IS b USAGt IS CUMPUT A Tl ONAL-1 
SYNCHkO-mZED RIGnT , 

02 F iRST-REFERENCb SIZE IS 8 USAGE IS CCHPUT AT I ON AL-1 

SY^CHROvlZEU KitiHT, 

02 LAST-REFtREIiCt SUt lb 8 USAGt 1? CQMPLIT AT 1 \IAL-1 

SYNCHRONIZED RIGhT . 

02 RECOKD-TYPt: SiZE lb 4 USAGE lb UqMPU T A I I ON AL-1 

SYNCHRQ.xIZElJ RIGHT, 

02 RcC-MLE SlZt IS 6 CLASS iS ALPHANUMERIC 

VALUE IS "COCCTM-, 

C2 frKROH-REFEHENCt SIZE iS 3 CLASS IS aLPH aNUME ■( I C 

SY'^CHRO^IZFr) ^<lGhT, 

00028 000400 i^D TEST-FILE 

00029 000410 PAGb CQi^-TAlKS 192U CHARACTERS 

00030 OOU420 FILE CO\TAliMS 48C PAGtS, 

00031 01 PRiMc-EN TYPE 555 RETRIEVAL VIA PRiMt FIELD , 

00032 C2 PRIME PlCTUHt 99999999 . 

00033 02 ABCuEF PICTUKt 999 . 

00034 01, THt-MASTER 

00035 TYPc IS 99: 

00U36 RETRltVAL VIA CaLC CHAIN 

00037 PAGE-RA^GF 121 TU 121 
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&4y7i> 02 09-26-68 10.291 

ins A I T P .J M n c; . 



PAGE 2 

tiiDU-12 CHCi02 
GTbOO IlMTEGKAreU STOPt trai^^latur 



00038 

0039 
J0040 
J0041 
U0042 
J 4 3 
J0044 
J004S 
J0046 
J 4 7 
0OU4« 
a0049 
9Q050 
30051 
052 
D0053 
U0054 
J0055 
00056 
00057 
J0058 
■J 5 9 

J0060 
00061 
00062 
6 3 
J0064 
00U65 
a0 6ei 
6 7 
jOU6b 
00069 
00070 
00071 
00Q72 
00073 
74 
00075 
J00 76 
0007/ 
jOU7b 
j0 79 
J fl 
00081 
J O 8 2 
J 8 3 
.10 84 
J00n5 
J 8 6 
J0087 



Q? MASTfcH-flELU PICTUKE 999999 , 
02 MASTtR-DATA PICTUKt X(12) , 
98 CALC CHilN DETAIL 

Ka^uOMIzE 01^ '^ASTtK.FItLu , 
98 THt-CMArxl CHAIN MASTEK CNAIM-OKDER 

IS SUKTfcD WITHJN TY^'b, 
98 PAafc-TAdLE CHAIN MASTtR CHAlN-ORnbc? 

01 QUAUl 

TYPE IS COl 

HfcTNlEVAL VIA CALC CHAIN 

02 QUAUl-MUH PICTURE 99V999 , 
02 OUAOl-PIELD SI?b 24 . 

98 CALC CHAIM DETAIL 

RANDOMISE ON (JUAUl-NUM , 
98 THE-CHAIN CHAIN uEfAlL StLECT CUHRtMT 

ASCb^DI^G KEY IS UUAUl-NUM. 

01 QUAU2 

TYPE IS 002 

RETRIEVAL VIA CALC CHAIN 

f 

02 QUAU2-NUH PICTURE 999999 , 
02 0UAD2-FIELD SIZt 24 , 

98 CALC CHAIN DETAIL 

K A i'>i IJ U M I / E '-^ u ;j a u /^ - Ml M , 
98 THE-CHAIM CHAlM UbTAlL SELECT CURRbMT 
ASCbNOINiG KPY IS UIUAU2-NUM, 

01 QUA03 

TYPb IS :03 

RETRibVflL VIA CALC CHAIN 

» 

02 CiUA[J3-NUM PICTUKb 99^999 . 
02 UUA03-FIELn SIZk 24 . 

93 calc chain detail 

Randomise on quads-wum . 

98 THb-CHAif\) CmAI;J DbTAlL SbLbCT CUKRbNjT 

ASCENDING KEY 13 QUAu3-N'UH, 
01 aUAU^ 

TYPb IS :04 

RETRlbVAL VIA CALC CHAIN 

Q? QUAi)4-NU|.i PiCTUKfc 999999 , 
C2 UUALl4-f"IELD SIZb 24 , 
96 CALC CHAIN DETAIL 

Random I (IE ofx: uuAi)4-.iMUM , 

98 THE-CHAIN CHaIM UbTAIL SbLbCT CURRb^■T 

ASCENDING KtY IS ■JUAD4-iMUM. 
01 PAGfe-LlsT 

TYPb IS C5: 



Is SORTED 
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DECK SETUPS 



The following deck setups show the most common uses of the I-D-S 
Translator: (1) translate and compile; and (2) translate, compile, and 
execute. 



Translate and Compile 



16 



***EOF 



I DENT 
IDS 



lENDJOB 



Source Program 



With the above deck setup, the I-D-S Translator is called, and the 
source program is translated into a form acceptable to COBOL. COBOL is 
called to compile the translated program. Since no options are specified 
in the $ IDS card, standard I-D-S/COBOL options are used. 
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Translate, Compile, and Execute 



1 


8 


16 


$ 

$ 
$ 


I DENT 

PROGRAM 

DATA 


QUTU 
• Q 




• 


Directives 




"file" 

DATA 


Al, Options 
I* 




• 


Directives 


$ 


IDS 


Options 




• 


Source program 


$ 
$ 

$ 


• 

EXECUTE 
"file" 

DATA 


Options 

fc, Options 

fc is the same file code 
specified in the File Code 
Section of the user's program 

• Q 




• 


Directives 


$ 

***EOF 


• 

ENDJOB 





The deck setup above assumes a temporary I-D-S data base where "file" 
can reference any mass storage device such as PRMFL, DISC, MASS, etc. 
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OBJECT PROGRAM EXECUTION 



The I-D-S object program consists of a modular set of subroutines which 

interpretively execute the I-D-S commands, GELOAD loads these 

subroutines as a result of the calls generated by the compilation 
process . 

Because of the interpretive mode of execution, the complete data 

description of the I-D-S data file, also generated by the Translator, 
must be available to these routines. 



Example: 



Deck setup for execution using an I-D-S permanent data file, 



1 


8 


16 


$ 


jiDENT 


IDSOO ,DATABASEMGR, 


$ 


lUSERID 


IDSFOURYQUAD$DATABASE 


$ 


lOBJECT 




$ 


1 • 

(DKEND 




$ 
$ 


[EXECUTE 
ILIMITS 




$ 
$ 
$ 
$ 


IPRMFL 
JPRMFL 
PRMFL 
|PRMFL 
1 . 
1 . 
1 . 


Al ,R/W, R, IDSFOURYQUAD/QUADOl 
IA2 ,R/W,R,IDSFOURYQUAD/QUAD02 
A3,R/W,R,IDSFOURYQUAD/QUAD03 
A4,R/W,R,IDSFOURYQUAD/QUAD04 
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5. I-D-S Data File Structure Descriptions 



DEFINITION STRUCTURE 

The Definition Structure required by I-D-S is a list structure which 
reflects the description of the records of the I-D-S data file. It 
defines the master/detail relationships between records, chain 
claracter6stics , and the physical and control characteristics of every 
field of every record type in the I-D-S data file. 

The organization of a Definition Structure using the I-D-S shorthand 
technique is shown in Figure 17. 
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Field CHAIN 



Field 
Definition 



Communication 
Control 
Block 



1 



Record 
Definition 



Modify CHAIN 



Detail CHAIN 



Detail 
Definition 



Master CHAIN 



Master 
Definition 



Chain CHAIN 



Control CHAIN 



Control 
Definition 



Figure 17. I-D-S Definition Structure 



The Definition Structure is described in the following sections, 
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Communication Control Block 



The Conununi cation Control Block entry must be supplied as the master of 
the Record-Type Chain. It serves as the communication area for data 
which must be passed between the user's program and the I-D-S 
subroutines. The machine format of the entry is shown in Figure 18. 



Bits 



LOC-CCB 
+1 
+2 

+3 
+ 4 
+5 
+6 



5 


1] 


17 


23 29 


35 





MBZ 


DIRECT-REFERENCE 


MBZ 


FIRST- REFERENCE 


MHZ 


LAST-REFERENCE 


MBZ 


Record Type 


Record Type Chain Next 


MBZ 


File Code 


MBZ 


ERROR- REFERENCE 


MBZ 


AUTHORITY 


IffiZ 


OPEN Mode 



Figure 18. Format of Communication Control Block Entry 

The bit structure of the format shown in Figure 18 serves the following 

purposes : 

LOC-CCB Symbolic location of Communication Control Block. 

0-5 Definition Type — an octal code of 00. 

6-11 Must be zero. 

12-35 DIRECT-REFERENCE — a reference code of the record last 

processed by any STORE or RETRIEVE. 

LOC-CCB+1 

0-11 Must be zero. 

12-35 FIRST-REFERENCE — reference code of the first record to be 
retrieved by the RETRIEVE EACH verb. The value is supplied by 
the user's program. After each retrieval, the I-D-S 
subroutines modify the value to the next reference code. 



103 



LOC-CCB+2 

0-11 Must be zero. 



LiAST— REFERENCE — s vslue su^^li.Gd t?^^ tlie ussir's ^3ro'*^]rsir. * WiiGn 
this reference code is reached, the RETRIEVE EACH verb will 
execute the AT END procedure. 



LOC- 


-CCB+3 


0- 


■11 


12- 


-35 


LOC- 


-CCB-l-4 


0- 


-17 


18- 


-23 


24- 


-35 



Must be zero. 

Record type of the last record processed by any STORE or 
RETRIEVE. The value is supplied by an I-D-S subroutine. 



Record Type Chain Next--the assigned symbol of the first 
Record Definition Structure. 

Must be zero. 

File Code — the user-supplied, two-character file code 
assigned to the I-D-S data file. 



LOC-CCB+5 

0-17 Must be zero. 

18-35 ERROR- REFERENCE — a BCD code for an error condition 
encountered during execution. If there is no error, the value 
supplied by I-D-S will be zero. 

LOC-CCB+6 

0-5 Must be zero. 

6-17 AUTHORITY — a value supplied by the user. 

18-29 Must be zero. 

30-35 OPEN Mode — a processing mode supplied via the OPEN routine. 



Record Definition Entry 



A Record Definition entry must be supplied for each data record type in 
the I-D-S data file. In addition, one such entry must be supplied for 
the Page Header record. The Record Definition entry is the master of the 
Master Chain, Detail Chain, and the Field Chain; it is a detail of the 
Record-Type Chain. The format is shown in Figure 19. 
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LOC-SYM 
+ 1 
+2 
+3 
+4 
+ 5 



5 




8 11 


i-; 


29 








35 


1 


MBZ 


Record Type 


Record Size 


MBZ 


S 


P 


R 


Page Interval 


Master Chain Next 


Field Chain Next 


Detail Chain Next 


Authority 


Current Record Reference Code 


Record Type Chain Next 


MBZ 


Minimum Page Range 


Maximum Page Range 



Figure 19. Format of Record Definition Entry 

The bit structure of the format shown in Figure 19 serves the following 
purposes : 



LOC-SYM 
0-5 
6-7 
8-17 

18-29 

30-32 
33 



34 



35 



Symbol equivalent to the record name. 

Definition Type — an octal code of 01. 

Must be zero. 

Record Type — a number from 1 to 999 assigned to each data 
record; 1000(10) is assigned to the Page Header record; for 
a Pagette Header record, the number is 1003(10). 

Record Size — number of characters in the record including all 
control and chain fields. 

Must be zero. 

S — Storage Classification Indicator 

— Record is stored relative to the chain defined as the 

Retrieval Chain for this record. 
1 — Record is stored relative to the chain defined as the 

Storage Chain, which is not the same as the Retrieval 

Chain. 

P — Page Range Indicator 

0--Absolute Page Range not specified for this record type 

(see LOC-SYM+5) . 

1 — Absolute Page Range is specified (see LOC-SYM+5) . 

R — Retrieval Classification Indicator 

— Secondary or calculated record 
1 — Primary record 
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LOC-SYM+1 

0-17 Page Interval — Number of pages to be skipped relative to the 
page in which the last record of this type was stored. This 
onl'^' aonlies to primarv or secondary records, 

18-35 Master Chain Next — the assigned symbol of the first Master 

Definition for this record. If this record is not the master 

of any chain, this is the assigned symbol of the Record 
Definition. 

LOC-SYM+2 

0-17 Field Chain Next — assigned symbol of the first Field 
Definition for this record. If there are no data fields, then 
this is the assigned symbol of the Record Definition. 

18-35 Detail Chain Next — assigned symbol of the first Detail 

Definition for this record. If this record is not the detail 

in any chain, then this is the assigned symbol of the Record 
Definition. 

LOC-SyM+3 

0-11 AUTHORITY — A value supplied by the user not to exceed 
4095(10) which serves as a lock for the data contained in the 
record. Reference to this record during program execution is 
allowed only when a matching key is specified by the .QOPEN 
calling sequence. 

12-35 Current Record Reference Code — reference code of the last 
record stored or retrieved of this record type. This is 
supplied by I-D-S during execution. 



LOC-SYM+4 



0-17 Record Type Chain Next — assigned symbol of the 
Definition of the Definition Structure. Uf this 
Record Definition entry, this field contains 
location of the Communication Control Block. 



next Record 
is the last 
the symbolic 



18-35 



Must be zero. 
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LOC-SYM+5 

(For P, see LOC-SYM, bit 34.) 

If P = 1, then: 

0-17 Minimum Page Range — the first page number of a range of pages 
into which all records of this type are to be stored. 

18-35 Maximum Page Range — the last page number of a range of pages 
into which all r'ecords of this type aref to be stored. 

If P = and LOC-SYM+5, bits 0-35 = 0, then: 

No Page Range is specified for this record type. 

If P = and LOC-SYM+5, bits 0-35 f 0, then: 

0-17 Minimum Page Range Pointer — points to a word in which bit 
positions 18-35 contain the first page number of a range of 
pages into which all records of this type are to be stored. 

18-35 Maximum Page Range Pointer — points to a word in which bit 
positions 18-35 contain the last page number of a range of 
pages into which all records of this type are to be stored-. 

Detail Definition 

A Detail Definition entry must be supplied each time a record is a 
detail in some chain. If a record is a detail in three different chains, 
three Detail Definition entries must be supplied. The Detail Definition 
entry is a detail of the Chain Chain and of the Detail Chain. It is also 
the master of the Control Chain. The machine format of this entry is 
shown in Figure 20 . 



bits 

LOC-SYM 

+1 
+2 
+3 
+ 4 



5 




8 11 


17 




25 


29 


31 








35 


4 


MBZ 


Data 

Record 

Type 


MBZ 


Order 


DUP 


C 


U 


S 


R 


Chain Chain Next 


Control Chain Next 


Chain Chain Head 


Detail Chain Next 


Next Position 


MBZ 


Detail Chain Head 


Prior Position 


Head 


Position 


MBZ 



Figure 20. Machine Format for Detail Definition Entry 
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The areas in the format shown in Figure 20 serve the following purposes: 
LOC-SYM Symbol assigned to this entry. 

0-5 Definition Type — an octal code of 04. 

6-7 Must be zero. 

8-17 Data Record Type — same as that specified by the Record 
Definition entry for this record. 

18-25 Must be zero. 

26-29 Order — a code to represent the chain-order of the various 
details of this chain. Note that when several different 
record types are defined as details of the same chain, the 
chain-order must be the same for all records. The chain-order 
for a CALC chain must be 11(8) for after current. 



Octal 


Code 


Chain-order 


06 




Sorted Within Type 


04 




Sorted 


10 




First in Chain 


00 




Last in Chain 


01 




Before Current 


11 




After Current 


DUP — Duplicate 


Records Indicator 



30-31 

00 — Not allowed 
01 — Allowed First 
11 — Allowed Last 

32 C — CALC Chain Detail Indicator 

— Not a CALC Chain 
1 — CALC Chain 

33 U — Chain Master Indicator 

— The master of this chain is a unique master 
retrievable via the MATCH-KEY fields defined 
for this chain. 

1 — The master of this chain is the current 
master record of its type. 

34 s — Storage Chain Indicator 

— Record is not stored relative to this chain. 
1 — Record is stored relative to its logical 
position in this chain. 

35 R — Retrieval Chain Indicator 

— Associative retrieval of this record not 

possible via this chain. 
1 — Associative retrieval of this record must be 

via this chain. 
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LOC-SYM+1 

0-17 Chain Chain Next — assigned symbol of the next Detail 
Definition of this chain if there is more than one detail 
record type in the chain. If there is only one Detail 
Definition or if this is the last of several, then this is 
the assigned symbol of the Master Definition for this chain. 

18-35 Control Chain Next — assigned symbol of the first Control 
Definition for this chain or, if none, the symbol assigned to 
this Detail Definition. 



LOC-SYM+2 

0-17 Chain Chain Head — assigned symbol of the Master Definition of 
this chain. 

18-35 Detail Chain Next — assigned symbol of the next Detail 
Definition for this record if the record is a detail in more 
than one chain. If there is only one Detail Definition or if 
this is the last of several, then this is the assigned symbol 
of the Record Definition for this record. 

LOC-SYM+3 

0-11 Next Position — the character position, relative to the first 
character of the record, in which the first character of the 
chain next pointer is found. 



If this is a CALC chain detail, the NEXT chain field must 
the first field 



be 
the 



following the Record Size Field of 
record; that is, it must be defined as beginning in character 
position 5. 



12-17 Must be zero. 

18-35 Detail Chain Head — assigned symbol of the Record Definition 
for this record. 

LOC-SyM+4 

0-11 Prior Position — the character position, relative to the first 
character of the record, in which the first character of the 
chain prior pointer is found. If the chain is not prior 
processable, this value is zero. 



When a detail record of 
pointer, all records of 
pointer. 



a given chain contains a prior 
the chain must contain a prior 



12-23 Head Position — the character position, relative to the first 
character of the record, in which the first character of the 
chain head pointer is found. If the chain is not a headed 
chain, this character is zero. 



24-35 



Must be zero. 
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Master Definition 



^^ o /-»Vi 4- "i TY»d o 



i*-«/-lV/-1 T C /^CI-Ft 



Master Chain and the master of the Chain Chain. The machine format of 
this entry is shown in Figure 21. 



Bits 

LOC-SYM 

+ 1 
+2 
+3 

+ 4 
+5 
+6 



5 


7 


11 


17 


35 




2 


MBZ 


Data Record 
Type 


Master Chain Head 




Chain Chain Next 


Master Chain Next 




MBZ 


Reference 


Code of Chain Master 




Next Position 


Reference 


Code of Chain Prior 




Prior Position 


Reference 


Code of Chain Curren 


t 


MBZ 


Reference 


Code of Chain Next 




MBZ 


Reference 


Code of Key Record 





Figure 21. Machine Format for Master Definition Entry 



The areas in the format shown in Figure 21 serve the following purposes: 
LOC-SYM Symbol equivalent to chain name. 

Definition Type--an octal code of 02 

Must be zero. 



0-5 
6-7 
8-17 



18-35 

LOC-SYM+1 
0-17 

18-35 



Data Record Type — same as that specified for the Record 
Definition entry for this record. 

Master Chain Head — assigned symbol of the Record Definition 
entry for this record. 



Chain Chain Next — assigned symbol of the first Detail 
Definition for this chain. If the chain has no detail records 
defined, then this is the symbol of this Master Definition. 

Master Chain Next — assigned symbol of the next Master 
Definition if this record is the master of more than one 
chain. If the record is the master of only one chain or the 
master of the last of several chains, then this coding is the 
symbol of the Record Definition for this record. 
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LOC-SYM+2 

0-11 Must be zero. 

12-35 Reference Code of Chain Master — reference code of the Master 
Record of the chain defined by this Master Definition. This 
value is supplied by I-D-S during execution. 



LOC-SyM+3 



0-11 



12-35 



Next Position — the character position, relative to the first 
character of the record, in which the first character of the 
chain next pointer is found. 

Reference Code of Chain Prior — reference code of the prior 
record of the chain defined by this Master Definition. This 
is supplied by I-D-S during execution. 



LOC-SYM+4 



0-11 



12-35 



Prior Position — the character position, relative to the first 
character of the record, in which the first character of the 
chain prior pointer is found. If the master record is not 
prior processable, this value is zero. 

Reference Code of Chain Current--ref erence code of the 
current record of the chain defined by this Master 
Definition. This value is supplied by I-D-S during execution. 



LOC-SYM+5 

0-11 Must be zero. 

12-35 Reference Code of Chain Next — reference code of the next 
record of the chain defined by this Master Definition. This 
is supplied by I-D-S during execution. 

LOC-SYM+6 

0-11 Must be zero. 

12-35 Reference Code of Key Record — reference code of the record to 

which a record will be relinked if there is an error in 

modification. This code is supplied by I-D-S during 
execution. 
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Field Definition 



A Field Definition entry must be supplied for each data field contained 
in the record, (Note that Field Definitions are not supplied for the In 
addition, if the record is defined as a secondary record, a Field 
Definition must be supplied for all MATCH-KEY fields defined. If the 
record is defined as a primary record, a Field Definition must be 
supplied for the field which is equivalent to the reference code. The 
Field Definition entry is a detail in the Field Chain and is the master 
of the Modify Chain. The machine format of the entry is shown in Figure 
22. 



LOC-SYM 
+ 1 

+2 



17 



24 



33 



35 



1 


MBZ 


C 


AF 


U 


MBZ 


Field Increment 


Location of Working 
Storage 


Field Size 


MBZ 


First 
Char. 


Field Chain Next 


Modify Chain Next 



Figure 22. Machine Format for Field Definition Entry 
The areas in the format shown in Figure 22 serve the following purposes ; 



LOC-SYM Symbol assigned to this entry. 

0-5 Definition Type — an octal code of 10. 

6-17 Must be zero. 

18 C — Computational Mode Indicator (*) 

— Noncomputational field recorded in BCD. 

1 — Computational field recorded in binary. 

implied size is 6 or 12 characters.) 

19-20 AF — Arithmetic Form (*) 

If bit 18=1 then: 

00 — Single Precision, Fixed Point 

01 — Single Precision, Floating Point 

10 — Double Precision, Fixed Point 

11 — Double Precision, Floating Point, 



(The 
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If bit 18=0 then: 



21 



— Alphanumeric 
01 — Alphabetic 
10 — Numeric 

11 — Signed numeric (sign indicated by zone bits of 
low-order character of the field) . 

U — Unique Field Indicator 



— Field is not a unique or control field 
1 — Field is unique and required for identification 
of the record 



When this record is a primary record its 
definition, the reference code. Since 
entry is not supplied for the reference 
entry must be supplied to define the work 
for the field which is equivalent to the 
entry must not include the Field Defini 
indicated in this section by (*) , since 
actually contained in the data record. I- 
format of this field in working storage i 
BCD numeric. 



unique field is, by 
a Field Definition 
code , a separate 
ing-storage location 
reference code. This 
tion specifications 
the field is not 
D-S assumes that the 
s eight characters. 



22-23 Must be zero. 

24-35 Field Increment (*) — character position of the first 
character of a field; increment zero is the first character 
of the record. 



LOC-SYM+1 
0-17 



Location of Working Storage — assigned symbol of the leftmost 
word of working storage defined for this field. The symbol is 
equivalent to the field name. 



18-29 

30-32 
33-35 



Field Size — the number of characters in the 
exists in the record or in working storage. 

Must be zero. 



field as it 



First Character — position of the first character of the field 
within the first word of working storage. 



LOC-SYM+2 

0-17 Field Chain Next — assigned symbol of the next Field 
Definition of this record, if there is more than one field in 
the record. If there is only one field or if this is the last 
of several, then this value is the assigned symbol of the 
Record Definition for the record. 
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18-35 Modify Chain Next — assigned symbol of the first Control 
Definition for this field or, if the field is not a control 
field, the symbol of this Field Definition. 



Control Definition 



A Control Definition entry must be supplied each time a field is defined 
as a control field of sotne chain. A control field is defined as a sort 
field, MATCH-KEY field, or a RANDOMIZE field. The Control Definition 
entry is a detail of the Modify Chain and of the Control Chain. The 
machine format of this entry is shown in Figure 23. 



14 



17 



35 



LOC-SYM 
+1 

+ 2 



2 


MBZ 


R 


CNTL 


Control Chain Head 


Location of MATCH-KEY 
Field Definition 


Control Chain Next 


Modify Chain Head 


Modify Chain Next 



Figure 23. Machine Format for Control Definition Entry 

The areas in the format shown in Figure 23 serve the following purposes: 
LOC-SYM Symbol assigned to this entry. 

0-5 Definition Type — an octal code of 20 

6-13 Must be zero. 

14 R — Match Control Indicator 

— Equal match required 

1 — Match equal or greater (Range Record) 

15-17 CNTL — Control field type 

001 — RANDOMIZE control field 
010 — Sort Control ascending sequence 
Oil — Sort Control descending sequence 
100 — MATCH-KEY control field 

18-35 Control Chain Head — assigned symbol of the Detail Definition 

of the chain controlled by this Control Definition. 
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LOC-SYM+1 

0-17 Location of MATCH-KEY Field Definition — assigned symbol of 
the MATCH-KEY Field Definition associated with this SYNONYM 
Field. If there is no SYNONYM, this symbol is zero. 

18-35 Control Chain Next — assigned symbol of the next Control 
Definition for the chain. If this is the last or only Control 
Definition, then the code is the symbol of the Detail 
Definition. 

When several sort control fields are defined for a given 
chain, they must occur in sequence from major sort control to 
minor sort control. 



LOC-SYM+2 



0-17 Modify Chain Head — assigned symbol of 
for this control field. 



the Field Definition 



18-35 Modify Chain Next — assigned symbol of the next Control 
Definition if this field is a control field in some other 
chain. If this is the last or only Control Definition for 
this field, then the code is the symbol of the Field 
Definition. 

A definition structure produced by the I-D-S Translator and a definition 
structure as expanded by GMAP appear on the following pages. 
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42447 09 08-C6-69 17,«73 GE60C INTEGRATED STORE TRAMSLATflR ISDI.-2 CHGOQ 

!Pi ALTER NCS, > 

ETC CAl,C T3 

BC2^35 ,OFD 0i0iBO00l»,t)024i^C5«97,PD2434, f" 

ETC RD24J9,RD5697i "^ '^ 

ETC QIJADJ-FIEI-D O 

Jl?.i?4 lOFP 0»0»0UO00V,OQO6»^C5953.PD2433, C 

"6TC R02^J7VrdS953V' I^ 

ETC QIJAD3-NUM C 

RE2437 iQCD Qi l» HE24.16. Rni!436."na434 , rD2434i -H 

ETC 
R£7233 ,ORD 002i 0UOD43, 0. 0< Oi 000000. 
_ETC R0723J.RD7238,RD7235,nOOO,RD4737, 

ETC "UOBOOiJiOOOaodiQUADZ 

RC723a iCDD 002110(0,0.1(0, 

ETC 0(fiD7236,BD7233»HU4742,RD4097(RD7238, 

ETC OOS'lUOOQiOPUO, 

ETC THii-CHAiN 

RE7236 .ODD 002, li , 0, 1 , 0, 1 , 

ETC irRC?i33,Pb7233.KD4740.R08lZ9,RD7237, 

ETC OOOSiUOOO.OOOO, 

Etc c alc 

RC7235 iQFD . B . OUQCHS . 0924 . fC4353, RD7234, 

6tC RD>23i».RD<353, 

ETC QUAD2-nei.D 

RC7<34' i^FD 0,0»iJi)Ooo*,0OO6.fCiO25,RD7233, 

ETC Rn723^»RCi025, 

ETC QuAD2-NUM 

RC7Z37 ,QCD 0(>.Rtl7236iRD723<>.RD7234,RD7234, 

ETC 

001*000043, 0»0(0, 000000, 
TDr737.RD47«2.RC4739,oOOD(l?lJ4481, 

ETC OOCOOU.OOOODOiQUAUl 

Rl:4742 ,ODD OPi.lO.O.O.l.O, 

ETC u.RD4M0»**D<737.HD4097,RD4097(RD4742, 

ETC 0039,0000.0000, 

ETC THE-'CHAIN 

oojttU'0'i»o»i' 

l.RD4737,RD4 737.HU4484.RD8129,RD4741, 
OOBS^UOOO'OCOb, 
CAI.C 

0.fliBao015.0 024.hCl537.RD4738, 
ETC RD473V,RD1537( 

ere " QuJTDi-neiD ' 

RC473e ,OFD 0,B,0O0O0*,0OD6ii-C6065.RD4737, 

ETC HD474i,RDe065. 

ETC QUADi-NUM 

Bi;4741 ,oCD O,JiHi3474a,R0«74O.RD473e,RD473a. 

ETC 

"n*r*T8r',(!RD 990(Oaoo3'.D,"i. 0,000000. 

ETC H 07809, RD4484,RD44 83, ODO0.RDO513, 
ETC uOgl2i. 000121, THt-MASTER 



42 447 09 oe-C6-69 17,473 06605 iNTfcGRATED STORE TRA\St,ATOR fSDL-2 CHQOO 



tPS ALTER MCS . 



BE7ea9 ,QMC 

--■"itc 

B^4 0V7 ,OMD 
ETC 

BU484,00D 
Etc 
ETC 

Itc 

?C4183^iOFD 

ETC 
ETC 



RC44B2 ,OFD 

ETC 

'ETC 
BC4^B5 jOCD 

ETC 
B tOS13 , ORD 
ETC 
ETC 
Rt8l29 ,OMD 

ETC 

"USE 
TRA 



TT<nJO^ ZERO 

EE^OOOl VFD 

PEO^DDl "ZERO 

..ICS, NUUU 

ENTER 



990,RD4097,RD448l,RD0196,003X,OOOC, 

pABE-TABLfc 

99UiRD44ei»RD44ei«R0506?,0027|OCIOOi 

THfc-CHAlN 

99DiU>0. 1.0,1, 

l«RD448l,RD44Bl.rt 08129. RD8129,(^D44e5, 

ooo5|uooo,aooo, 
caCc 

Oj;iOU0019,0012(FC0321(R044B2, 

RD448;5,R0632i> 

MASTER-DATA 

OiU*OUOQOV>OOD6,FC10897rD4481, 

RD4489,HD10S9, 

MASTBR'FiHd 

Ui;«Ri:448«.RU4484,RP4482«R04482i 

U 

iOUO,U00022FOiO<l«000000, 

RCieiZv;RDU913>R009l3.00 0,CCBloC, 

gOHOOU,O0O0O0iX^A8E^HEADXX 

iOfiO|ROOSl3,R006l3,Ro;060,0009,0000| 

CAI.C 

06UO0U. 000002 
26/0,10/9VO 

0,03 



COBOL. 
ENTE R DEF INITIQ^JS , 

"fYMfOL RD3i37 EQUALS 
tINE»NO 
"SYMBOL FC3137 EQUALS INITIAL CHARACTER OF 

JjlNBoNO 

IDS SIZE 0CI0U02 EQUALS 
UINErNO 



SYMBOL R6l47^ EQUALS 

PAGE-NO 

SYMBOL FC1473 EQUALS INITIAL CHARACTER OF 

PAGE'NO 

TDS SIZE O0QU06 fcQUALS 

PAS E-MQ 
"SYH«OL "fiE'i2l7 EQUALS 

0UAD4-riELD 
'SYMBOL f^S1217 EQUALS INITIAL CHARACTER OF 

0UAD4-FIfcLD 

IDS STZE' 000024 EQUALS 

0UAD4^FIElD 
~5ym90L Rf7f7T equals 

0UA04»NHy 

Symbol FC7b73 equals initial character of 



4ZM7 0« 08-06-69 17,«^9 



000217 O0O5OUOO4}.7b OHi 



6 IDS 



000220 OCO00O0U00"U 



oou 



nU022i 
000221 
00022$ 
000221 1CO00UO00017 OOU 



000222 OU075:70014nu 

000223 00*224 004221 






0QO25'« "" 

000224 

000224 

000224 j_cooooooooii 'ouu 

J^Q22S 000754000600 OlU 
000226 0C417U 004227 Ojj 



522 B0MB3 ,QFD 

523 ■ ETC 

524 ' ETC 

VFD 

vrD 

ZERO 

525 804^482 ",qFO 

926 "' ETC 

927 ETC 
VFO 

VFD 

ZERO 



FST CH, 
MOO CHN f^XT 



_ 000227 52(< RD44a5 ,OCO 

Oa0227 92'5 ETC 

00 2 2 7 — rcmi 01X10421 4 • '"003 VFU 



0011230' TJffnUOO 004214 003 
'00TI23r^trC4224 004224 033 



0U023iii 
000232 



000232 011750002601 



DQU 



ZERO 
ZERO 

9^0 HD0913" fQWtr~ 

931 ETC 

932 Etc 
VFO 

ETC 



000233 OOOOOU 004240 OQJ 

00Q2S4 00423<: U04?j2 0d<) 

00OSS9 000000^00000 OOU 

000236 OC0744 ononun oiu 



RD6129 CHN CHN NXT, R04485 CON NXTi 

ZERO' RD'8l29,RD448i 

RD8129 CHN CHN HQ, RD44B1 DET N>(T, 

VFD 12/0005, 6/0, 18/RD44ai 

0005 POS NXT, RD4481 DET CHN HD 
VFD 12/0000,12/0000,12/0 

0000 PRIOR, eoOO HEAD 

DeT»JL OF CAl,C CHAIN 

0,0» 000015, 0012, FC0321|i^044B2i 

RC4489|«)D0321» 

MASTER-DATA 

06/10(12/0,3/0,1/0^2/0,12/000015 

CAF, 6 U, 00OO19 FUD INCR, 

18/RD0321, 12/0 012, 3/0 »3''FC0321 

Hn0321 WS, 0^12 FLD SZ, FC0321 

Rn44a2,R34483 

R04482 FUD CHN NxT, R04483 

MASTERwDATA ••••FiE|,D«NamE»«»» 

'070,i5?!OC09V0006iFCi889,RD448r, 

RD4485,I»D138V, 

MASTER-riEUP 

06/10 1 12/0 1 3/0, 1/0, 2/0, 12/000009 

CAF, U. OOpOOV FLD INCRf 

18/RDl089,12/0006#3/Oi3''FC1089 _ 

R9tU89 rtS, 0006 FLD sZ, FCi089 FTt CH,' 

RD4481,RD4489 

HD4481 FuD CHN NxT, RD4485 MQO CHN NxT 

MASTE'-FIEUD ••••FJEI.D'NAhE**** 

0,l»R04484,R044e4»RD4482,RD4482, 


"06/20. B/0,l/0-,3/l,18/RD«484 

R, 1 CNTLi «D*4«4 CON CHN HD, 

0,-^:34484 

3 LOC SYN W,S,, RD4484 CON, CHAIN NExT 

R044SZ,RD4482 

RD44a2 MOO CH HEADi RD''482 MOO CHN NXT 

1000, 000022i0, 0,1,000000, 

RDal29|RDe51i,RD05l3,DOti0,CCBLOC» 

00000 0,0 000 0D.XPASE"HEAOxx 

06/1,2/0,10/1000,12^000022,3/0, 

1/0,1/0.1/1 

1000 RECORD TVPE, 000022 REC SIZE. 

' ^ s, 5 p, 1 ns, 

ZERO 000000, R0812y 

000000 PU JNT, RD8IZ9 MST CHN NEXT, 
ZERO RD0513,RD05l3 

RP05i3 FUD CHN NxT, RO0S13 DET Cb^ NXT, 
VrO 12/0000,24/0 

0000' auThorit'', 

ZERO CCBUOC.O 

CC3U0C REC TYPE CHN NXT 



DC Hi 3 7 OC''!l,iij uno'iun out) 

aQt!e4i otiu::</ Ofi«i^o? f'4-i 

ocni44 occunonooiifu. oyu 

u n t, 1 i, 

DCneic octiol'J yion n., C'iu 

DC 04 11 OCtJuOU UOijOUP biu 

000612 nct'i.oun[}i/.^fc (Juu 

DCn6i2 nrH-Ou uounij'. duu 



bllJ^ 



ocnei4 ptogOo 701' 



U L' 



"Jib 
'Ji/ 

!543 

t>4,5 



iEkn 



533 ni:,t<X?'i ,OHd 



FU 



VFU 



cSS 



. . ! U 



uo 

('1 

'.11 



t.0iJOt)2 



RA 

EKO 

Fu 

EKO 

ULL 

5x1 

niT 



cjotnin,cooooo 

C'iCl'O" PAGE P H\l!, 0"0'*0n PACE R MAX 
X'^Ar^E-HCAnXX »»««RfcCORI.) = ->JAME»»»» 
I'UiO^RDOSlJ.KrOSl^.RD^OeO.OOOb.OUOO, 
C A L C 

cvs.s/o.io/xoao.is/Rno'ni 

l-'OO fitC TfPL% RU0'?13 MST CH-N HDi 
K"!5;i0l,PD0Sl3 

R.U?''6'-' CHM ChH^: NxT, RD0513 MST CHN NXT, 

X?/0,24/'D 
l?/n0l5i24/0 

O'^C^ PCS NEXT. 

:;:/co:io,24/o 

i-i'^Oi' POS PRIOR 

2 

;iAsTE° nr UALC CriAp 



• • i o I 

Cf^QCO^jOOOilO^ 
2'-/': ,iQ/<)9'0 



R UbF I;\:lTTOh'S , 

p ■■•■ 



D0U238 
n0U23B 



.QRD - RECORD DEFINITION 



,■■*-,-. 1 a 



■p^-*.-T« -t4- ^-P Daaa-w-j^ Ti^-(:A *-. ■! 4-4 «>- 



J_.lll_J.Jf . / 



Line 


Item 


1 


© 


RECORD TYPE 


1 


3 


RECORD SIZE 


1 


3 


S - STORAGE CLASSIFICATION INDICATOR 


1 


3 


P - PAGE RANGE INDICATOR 


1 


® 


R - RETRIEVAL CLASSIFICATION INDICATOR 


1 


® 


PAGE INTERVAL 


2 


® 


MASTER CHAIN NEXT 


2 


3 


DETAIL CHAIN NEXT 


2 


® 


FIELD CHAIN NEXT 


2 


® 


AUTHORITY 


2 


9 


RECORD TYPE NEXT 


3 


® 


MINIMUM PAGE RANGE 


3 


® 


MAXIMUM PAGE RANGE 


3 


9 


RECORD NAME 



FORMAT 



RDxxxx 



• QRD 



ETC 



ETC 



Line 1 



Q @ dXDCD ® 

XXX , XXXXXX , X , X , X , xxxxxx , 

© ® © ® © 

RDxxxx, RDxxxx, RDxxxx, xxxx, RDxxxx, Line 2 



xxxxxx , xxxxxx , X P ) 



Line 3 

TRANSLATOR OUTPUT (see preceding Definition Structure sample) 

RD7233 .QRD 002,0000 43,0,0,0,000000, 

ETC RD7233,RD7238,RD7235,00 00,RD4737 
ETC 000000, 000000, QUAD2 
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.QDD - DETAIL DEFINITION 

(See Figure 20. Machine Format for Detail Definition Entry.) 



Line 



1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
3 
3 
3 
4 



Item 




o 

© 
© 
© 
© 



@ 
@ 

© 



RECORD TYPE 

CHAIN ORDER 

DUPLICATE RECORD INDICATOR 

CALC CHAIN DETAIL INDICATOR 

U - CHAIN MASTER INDICATOR 

S - STORAGE CHAIN INDICATOR 

R - RETRIEVAL CHAIN INDICATOR 

DETAIL CHAIN NEXT 

DETAIL CHAIN HEAD 

CHAIN CHAIN NEXT 

CHAIN CHAIN HEAD 

CONTROL CHAIN NEXT 

NEXT POSITION 

PRIOR POSITION 

HEAD POSITION 

CHAIN NAME SPECIFIED BY 9 8 LEVEL 



FORMAT 

RDxxxx 



.QDD 



ETC 



ETC 



ETC 



xxx,xx,x,x,x,x. Line 1 

© ® ® ® @ © 
X, RDxxxx, RDxxxx, RDxxxx, RDxxxx, RDxxxx, Line 2 

® @ © 
xxxx , xxxx , xxxx , 



0] 



Line 3 



Line 4 



TRANSLATOR OUTPUT (see preceding Definition Structure sample) 

RD7238 .QDD 022,10,0,0,1,0 

ETC 0,RD7236,RD7233,RD4742,RD409 7,RD72 38, 

ETC 0039,0000,0000, 

ETC THE -CHAIN 
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.QMD - MASTER DEFINITION 



(See Figure 21, Machine Format for Master 

Via -Ft n "i t i nn Pn t ir\r _ ^ 



Line 


Item 


1 


w 


RECORD TYPE 


1 


© 


I4ASTER CHAIN NEXT 


1 


® 


MASTER CHAIN HEAD 


1 


® 


CHAIN CHAIN NEXT 


1 


© 


NEXT POSITION 


1 


© 


PRIOR POSITION 


2 


© 


CHAIN NAME SPECIFIED BY 98 LEVEL 



FORMAT 

© © © ©©©,., 
RDxxxx .QMD xxx,RDxxxx,RDxxxx,RDxxxx,xxxx,xxxx, Line 1 

© 

ETC x(30) Line 2 

TRANSLATOR OUTPUT (see preceding Definition Structure sample) 

RD7809 .QMD 990 ,RD4097 , RD4481,RD0196 , 0031 , 0000 , 
ETC PAGE-TABLE 
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.QFD - FIELD DEFINITION 



(See Figure 22. Machine Format for Field Definition Entry.) 



Line 



1 
1 
1 
1 
1 
2 
2 
3 



Item 



© 



® 
© 
© 
© 
© 
© 



COMPUTATION MODE AND 
ARITHMETIC FORM 

= ALPHANUMERIC BCD FIELD 

1 = ALPHABETIC BCD FIELD 

2 = NUMERIC BCD FIELD 

3 = SIGNED NUMERIC BCD FIELD 

4 = SINGLE PRECISION FIXED POINT BINARY FIELD 

5 = SINGLE PRECISION FLOATING POINT 

BINARY FIELD 

6 = DOUBLE PRECISION FIXED POINT BINARY FIELD 

7 = DOUBLE PRECISION FLOATING POINT 

BINARY FIELD 
U - UNIQUE FIELD INDICATOR 

FIELD INCREMENT 

FIELD SIZE 

FIRST CHARACTER 

FIELD CHAIN NEXT 

MODIFY CHAIN NEXT 



8) LOCATION OF WORKING STORAGE 
(9) FIELD NAME 



FORMAT 



RDxxxx 



Line 1 
Line 2 



Q© (!) ® Q © 

.QFD X , X , xxxxxx , xxxx , FCxxxx , RDxxxx , 

© ® 

ETC RDxxxx , RD xxxx , 

ETC x(10) 

TRANSLATOR OUTPUT (see preceding Definition Structure sample) 

RD2345 .QFD , ,000015 , 0024 ,FC5697 ,RD2434 
ETC RD2435,RD5697, 
ETC QUAD3- FIELD 
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.QCD - CONTROL DEFINITION 



(See Figure 2 3 * Machine ForTnat for Control 

n^-Fi m* +-1 r\n "Rnt-yv . ) 



Line 


Item 


1 


0) 


R-MATCH CONTROL INDICATOR 


1 


@ 


CNTL - CONTROL FIELD TYPE 


1 


(3) 


CONTROL CHAIN HEAD 


1 


© 


CONTROL CHAIN NEXT 


1 


© 


MODIFY CHAIN HEAD 


1 


© 


MODIFY CHAIN NEXT 


2 


© 


LOCATION OF MATCH-KEY FIELD DEFINITION 



FORMAT 

©©©©©© 

RDxxxx .QCD x,x,RDxxxx,RDxxxx,RDxxxx,RDxxxx, Line 1 

ETC RDxxxx Line 2 

TRANSLATOR OUTPUT (see preceding Definition Structure sample)) 

RD2437 .QCD , 1 ,RD2438 ,RD2436 , RD2434 ,RD2434 , 

ETC 
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6. Operational Characteristics 



I-D-S provides tiie following capabilities; 



A controlled, concurrent access to a common I-D-S structured data 
file which is created by the File System Activity; 

A common journal file for the automatic collection of journal 
records from each of multiple I-D-S activities in execution; 

An integrated set of utility routines to enable recovery and/or 
restart following a condition which requires restoration of the 
data file. 

Concurrent access to a common I-D-S data file is provided through the 
concept of subfile definition and allocation. A subfile is defined as a 
set of pages that fall within the total I-D-S data file. This range may 
be either the complete I-D-S data file or a portion. The File System 
Activity ($ FILSYS) procedures allow the creation, modification, and 
deletion of subfiles within an I-D-S file. 

At execution time, the I-D-S user specifies the subfiles which must be 
allocated to his activity. Each subfile requested is given an associated 
access mode. 



I-D-S DATA FILE INITIALIZATION 



Prior to the operation of any I-D-S program, the mass storage device 
must have been initialized with a Page Header record as the first record 
of each page in the I-D-S data file. 

The I-D-S utility program QUTI accomplishes this I-D-S data file 
initialization. 
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CREATING AN l-D-S DATA FILE 



An I-D-S data file may be created on one or many mass storage devices 
v.'ith different hardv.'are characteristics ^ It can be cernianent , teninorarv. 
or a combination of the two. In creating this file, the number and 
location of pages must be considered. 

The various directives necessary for creating an I-D-S data file are 
described below. Only the I-D-S options are included. Refer to the 
GE-600 Line GECOS III File System Reference Manual , CPB-1513, for a 
detailed description of the GECOS III File System. 



Creating a Permanent IDS Data File 



A permanent I-D-S data file is created by using the file system 
FCREAT/IDS/ directive. The options used with FCREAT/IDS/ are: 



BASESIZE/n/ 



Base size is required; /n/ defines the maximum size of 
the complete I-D-S data file; /n/ must be greater than 
or equal to 1 and less than or equal to 262143. If 
multiple files are created to form the complete I-D-S 
data file, the value of /n/ must be identical on all 
directives. 



RNG/rl,r2/ 



The page-range is required to define the pages 
contained in the file; rl and r2 are the beginning and 
ending page numbers respectively; rl must be less than 
or equal to r2; the values of rl and r2 must be 
greater than or equal to 1 and less than or equal to 
26 2143. This range may be either the complete I-D-S 
data file or a portion. 



PAGESIZE/n/ 



The page size is optional. If it is omitted, a size 
of 320-words is assumed. When it is present, /n/ must 
be greater than or equal to 40 and less than or equal 
to 640. This allows a different page size in each 
subfile within the complete I-D-S data file. 



When /n/ is present, the actual page size used will be 
adjusted, if necessary, to reflect a multiple of 
sector size of the hardware device for this file. (For 
a DSU200 Magnetic Disc Subsystem, page size will be 40 
X 2^, where n is an integer and 3<n<4 . For a DSU270 or 
a DSU167 or for an MDS200 Magnetic Drum Subsystem, 
page size will be 64 x n, where n is an integer and 
l<n<10.) 
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LINESPERPAGE/n/ 



Lines per page is optional. If it is omitted or 
greater than 63, 63 lines per page is assumed. When 
/n/ is present and less than 63, multiple copies of 
data pages are created to satisfy all 63 line flags. 



INVENTORY/n/ 



Inventory is optional. If it is omitted, a value of 
75 is assumed. When /n/ is present it defines the 
percentage of page fill, which controls inventory 
update; /n/ may contain the word "NO" to allow 
exclusion of inventory pages and processing. 



A sample deck setup to create a permanent I-D-S data file follows. It 
consists of 480 pages in the complete I-D-S data file but it is created 
as four files, each with 120 pages. 



1 


8 


16 


$ 
$ 
$ 

$ 


1 

jsNUMB 
lIDENT 
IFILSYS 
IPRIVITY 


1 
1 

1 



CRMAST 

CCREAT 
USERID 
CPOS 
FCREAT/IDS/ 



FCREAT/IDS/ 



FCREAT/IDS/ 



FCREAT/IDS/ 



IDSFOURYQUAD/IDSFOURYQUAD, PASSWORD /DATABASE/, 

SIZE/100/ 

IDSFOURYQUAD , PASSWORD /DATABASE/ 

IDSFOURYQUAD$DATABASE 

IDSFOURYQUAD 

QUADOl ,BASESI ZE/4 80/ ,RNG/1 , 120/, 

PAGESIZE/160/,LINESPERP AGE/32/, 

INVENTORY/25/, SIZE/13/, MODE/RAND/, 

DEVICE/DS3/ 

QUAD02,BASESIZE/480/,RNG/121,2 40/, 

PAGESI ZE/3 20 / , LINESPERP AGE/6 3/ , 

INVENTORY/75/, SIZE/11/, MODE /RAND/, 

DEVICE/STl/ 

QUAD03,BASESIZE/480/,RNG/241,360/, 

PAGESIZE/320/, LINESPERP AGE/63/, 

INVENTORY/75/, SIZE/11/, MODE /RAND/, 

DEVICE/DS2/ 

QUAD0 4,BASESIZE/480/,RNG/361,4 80/, 

PAGESI ZE/3 20/ , LINESPERP AGE/6 3/ , 

INVENTORY/75/, SIZE/11/, MODE /RAND/, 

DEVICE/DS2/ 



$ ENDJOB 
***EOF 



The above control cards will create an 
shown in Figure 24 . 



I-D-S data file structure 



as 
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System Master 
Catalog 



User's Master 
Catalog 



[QUADOl) (QUADO2I [qUADOsI fQUAD04) 

Figure 24. I-D-S Data File Structure 



The name in the System Master Catalog is the USERID assigned by the 
CRMAST directive. This is the name I-D-S will use as the I-D-S data file 
name. 

To have access to this I-D-S data file, the user must supply a $ USERID 
control card in the execution deck setup. The I-D-S journal records will 
contain this name, which will be used by the I-D-S utility routine when 
restart and recovery is required. 
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Creating a Temporary l-D-S Data File 

A temporary I-D-S data file is created by including IDS Create 
directives with the I-D-S execution activity. .These directives are 
contained in the .Q data file. 



The directive format is: 
18 16 



I 

IDS (CREATE (attributes 

I I 



The attributes are separated by commas , 



The attribute names may be the complete name or the abbreviation. 



FILECODE (FC) /f c/ 



File code is used to associate the attributes on 
this directive with the file code on the $ 
"File" card such as: 



DISC f c,lud,#random links 



BASESIZE(BSSZ)/n/ 



Base size is required on at least one directive 
card submitted for an I-D-S execute. If multiple 

directives are submitted, the value of /n/ must 

be identical; /n/ defines the maximum size of 

the complete I-D-S data file; /n/ must be 

greater than or equal to 1 and less than or 
equal to 262143. 



RANGE ( RNG) /rl , r2/ 



Page-range is required to define the pages 
contained in a file; rl and r2 are the 
beginning and ending page numbers respectively; 
rl must be less than or equal to r2 and the 
value of rl and r2 must be greater than or equal 
to 1 and less than or equal to 262143. This 
range may be either the complete I-D-S data file 
or it may be a portion. 



PAGESIZE(PGSZ)/n/ 



Page size is optional. If it is omitted, a size 
of 320 words is assumed. When it is present, /n/ 
must be greater than or equal to 40 and less 
than or equal to 640. This allows a different 
page size in each subfile within the complete 
I-D-S data file. 
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When /n/ is present t±ie actual page size used 
will be adjusted, if required, to reflect a 
multiple of sector size of the hardware device 
for this file. (For a DSU200 Magnetic Disc 
Subsystem, page size will be 40 x 2", where n is 
an integer and l<n<4. For a DSU270 or a DSU167 
or for an MDS200 Magnetic Drum Subsystem, page 
size will be 64 x n, where n is an integer and 
l<n<10.) 



LINESPERPAGE (LPP) /n/ 



Lines per page is optional. If it is omitted or 
greater than 63, 63 lines per page is assumed. 
When /n/ is present and less than 63, multiple 
copies of data pages are created to satisfy all 
63 line flags. 



INVENTORY (INV) /n/ 



Inventory is optional. If it is omitted, a value 
of 75 is assumed. When /n/ is present it defines 
the percentage of page fill, which controls 
inventory update; /n/ may contain the word "NO" 
to allow exclusion of inventory pages and 
processing. 



The deck setup below will create a temporary I 
by the I-D-S activity. 



-D-S data file to be used 



8 



16 



$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
IDS 

IDS 

IDS 
IDS 
$ 
***EOF 



SNUMB 
I DENT 
OBJECT 



DKEND 

EXECUTE 

LIMITS 

DISC 

DISC 

DISC 

DISC 

DATA 

CREATE 

CREATE 

CREATE 
CREATE 
ENDJOB 



DUMP 

'a1,A1S,13R 
Ia2,A2S,11R 
iA3,A3S,llR 
|A4,A4S,11R 

Q 
FC/Al/,BSSZ/480/,RNG/l,120/,PGSZ/16 0/, 
;lPP/32/,INV/25/ 

|fC/A2/,BSSZ/4 80/,RNG/121,240/,PGSZ/320/, 
LPP/6 3/,INV/75/ 
IfC/A3/,RNG/241,360/ 
FC/A4/ , RNG/361 , 480/ 
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Mixing Temporary and Permanent Files 

An I-D-S data file is subordinate to the GECOS-III file system. The 
I-D-S data file may be created on one or many mass storage devices with 
different hardware characteristics. This facility allows selected I-D-S 
record types to be given page-ranges, which may then be directed to a 
specific hardware device when the file is created. I-D-S utility 
routines provide for selective file dump and reload. It is possible that 
an application may require that pages residing on one type of hardware 
be dumped and then reloaded on another type of hardware. 

Two hypothetical cases where the user may want to mix permanent and 
temporary files follow: 

A user may want to establish a page range for records that are only used 
weekly or monthly. For this application, the page range would not be 
created as a permanent file. Instead the page range would be created as 
a temporary file, the data stored, and the file dumped to tape. 

When the records are to be used, the temporary file is established, the 
file is reloaded from the dumped tape, and the program is executed using 
this file in conjunction with the permanent file. Again, the file is 
dumped to tape and saved for the next weekly or monthly run. 

Another example of mixed permanent and temporary files is using a 
temporary file for the work area of execute activities. In this usage, a 
permanent file would not be required for the delete process, since this 
temporary area would be purged at the end of the activity. 
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ACCESSING AN i-D-S FILE 



QnKfilo Alln^Q + irtn 



Each subfile requested must have been created previously as an I-D-S 

data file. A $ PRMFL control card is required for each subfile. Refer to 

CPB-1518 for a complete discussion of options used. The I-D-S options 
are discussed below: 



16 



PRMFL 
PRMFL 



jfc, Permit, Mode , File String 
|fc,/LUD, Permit, Mode, File String 



PERMIT is an option describing the I-D-S usage. Multiple access modes 
may be used. If used, they are separated by slashes (/) . The valid 
options are: 



WRITE 



The user requests the subfile for updating records, 



READ 



The user requests the subfile for retrieving records, 



RECOVERY - The user requests access to an aborted subfile to 
reestablish the integrity of the subfile. 



Examples : 



16 



$ 
$ 



PRMFL 
PRMFL 
PRMFL 



|a1 , READ , R , I DSFOURYQUAD/QUAD 1 

:A2,READ/WRITE,R,IDSFOURYQUAD/QUAD0 2 

A3 , RECOVERY/READ/WRITE , R, IDSFOURYQUAD/QUAD03 
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Sample deck set up of LUD Option, used with 
statement for dynamic release of I-D-S file. 



the 



'CLOSE WITH LOCK" 
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I 

llDENT 

luSERID 

I . 
I 

I ; 

|PRMFL 
IPRMFL 



'pile 
[file 



(First Activity) 
1A1/D1S,R/W,R,FILE STRING 
|A2/D2S,R/W,R,FILE STRING 



(Last Activity) 
ITF,D1R,1R 
|tG,D2R,1R 



Table A shows the action taken when the LUD option is used. 



DISPOSITION 


PERMANENT FILE 


TEMPORARY FILE 


CODE 








File is made unavailable 


File is made unavailable 


R 


to the run unit. 


to the run unit. 




File space is available to 


File is available for 




the system for allocation. 


allocation to other jobs. 




File is made unavailable 


File is made unavailable 




to the run unit. 


to the run unit. 


s 


File space is held for 


File is NOT available for 




allocation to other 


allocation to other jobs. 




activities in this job. 


File is held for 
allocation to other 
activities in this job. 



Table A. 
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An I-D-S activity which includes a request for subfiles is not allocated 
until all requested subfiles are allocated. The subfile allocation 
criteria are shown in Figure 25. 



SUBFILE ALLOCATION 
CONDITION 


ACCESS REQUESTED 


READ 


WRITE 


RECOVERY 


FILE IN ABORT STATE 


X 








X 








X 








FILE BUSY WRITE (UPDATE) 




X 








X 








X 






FILE BUSY READ (RETRIEVE) 






X 








X 








X 




FILE NOT BUSY 








X 








X 








X 


ACTION 


DENY ALLOCATION 




X 








X 


X 












DELETE ALLOCATION REASON CODE 


15 








15 










16 


16 


16 


PERMIT ALLOCATION 






X 


X 








X 


X 









Figure 25. I-D-S Data File Allocation 
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since a READ access mode does not alter the contents of a subfile, 
several I-D-S activities can share a subfile in READ mode. If a subfile 
is allocated to an activity in the READ mode, it can also be allocated 
to any other I-D-S activity which wishes to use it in the READ mode. 
Allocation of the subfile would be denied, however, to any activity 
requesting WRITE usage for a subfile which is already allocated for READ 
usage. 

While there can be concurrent users of a subfile in READ mode, there can 
be only one active user for a subfile in the WRITE access mode. All 
other allocation requests for the subfile would be denied until the 
activity which is doing the UPDATE has terminated. 

Subfiles allocated in the WRITE access mode are marked in ABORT status 
if the activity aborts. A subfile in ABORT status will be allocated by 
requesting RECOVERY access mode in addition to READ and WRITE. 

The individual responsible for maintaining the I-D-S data file must 
prepare the necessary input for a RECOVERY run. The utility routines 
which aid in this preparation are discussed later. 

The abort indicator is turned off for an aborted subfile after a 
successful RECOVERY run is made on that subfile. It is then available 
for normal allocation. 
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Subfile Deallocation 

I-D-S data files are deallocated at activity termination. Figure 26 
shows the deallocation activity and the action taken. 



ACTIVITY TERMINATION 
CONDITION 


FILE BUSY ACCESS MODE 


READ 


WRITE 


RECOVERY] 


NGRtlAL 


X 




X 




X 




ABNORMAL 




X 




X 




X 


ACTION 


SET FILE ABORT ON 








X 




X 


SET FILE NORMAL 


^ 


X 


X 




X 




SET FILE ABORT OFF 










X 





Figure 26. I-D-S Data File Deallocation 



IDS JOURNAL FILE 



A journal file is a recording of all I-D-S data file page transactions. 
Journal information is collected on the accounting file tape from each 
of multiple I-D-S activities in execution, thus providing a single 
source file that is used to reestablish a data file to some previously 
known status in the event that the file should lose its integrity. A 
journal tape is labeled and is a single file. Multiple reel output may 
be produced depending on the journalization required. 

When an end of reel is reached or an activity with write permission 
aborts, a reel swap or unit switch occurs. Two operator inputs permit 
the accounting file to be closed for I-D-S purposes: 



IDSEJ 



IDSER 



Close the accounting file with an EOF trailer label when 
all I-D-S jobs known to the system are complete. 



Close the accounting file with an EOR trailer 
the time of the request. 



label at 
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I-D-S Journal File Configuration 



The I-D-S Journal file is configured on the system accounting file tape 
at system startup time by adding the I-D-S options to tlie Startup $ 
ACCOUNT control card. Refer to the GE-600 Line GECOS III Startup 
Software Maintenance Document, CPB-1489. 



The I-D-S options are: 



IDS 



This option indicates that the I-D-S journal records are 
to be included on the system accounting file as record 
type 13(8) . 



BUFSIZ/n This option sets the size of the collecting buffers for 
I-D-S journal records and the accounting records. If 
omitted, then /n is assumed to be 320. The value /n must 
be set to at least 12 words larger than the maximum page 
size that may be placed on the journal file. If a journal 
record is encountered which is greater in size than the 
collecting buffer, the slave program will be terminated 
with a D2 abort code. 



RETENTION/n 



This option allows the retention period in days required 
for label checking/writing to be established for the 
I-D-S journal file. 



Journal Record Format 



Journal records are produced as record type 13(8) on the system Error 
and Accounting file which must be configured at system startup time and 
must be assigned to magnetic tape. Override options are discussed later. 

With the exception of block size, records are written in standard system 
format as described in the GE-6Q0 Line File and Record Control Reference 
Manual , CPB-1003. The block size is as large as the buffer size defined 
on the startup $ ACCOUNT control card. 

The various formats for record type 13(8) that can be recorded on the 
journal tape appear below follov/ed by definitions of terms common to all 
types . 
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Slave Begin Sync, Record Type 03. This record is written at the 
beginning of each I-D-S slave activity. 

Word Contents 

1 Record control word for journalizing 

2 Checksum 

3 SNUMB 

4 Start date (MMDDYY) 

5 Start time (HH.TTT) 

6 .Indicators (bits 0-11) 
Activity number (bits 27-35) 

7 Not used 

8 1 I-D-S data file name 



9 



] 



Subroutine .QOPEN generates this record and stores it in the slave 
program prefix as follows. (See also "I-D-S Data Pages" in Chapter 7 for 
special conditions that apply when using disc sort.) 
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Location in 
Prefix (decimal) 

54 



55 
56 
57 
58 
59 
60 
61 
62 



Word Contents 



000010 
(Size) 



000013 
(Type) 



Checksum 



SNUMB 



MMDDYY 



HH.TTT 



030 



Activity # 



I-D-S data file name 



Page Image Record, Record Types 05 and 06 . There are two types of Page 
Image records (BEFORE and AFTER) written to the journal tape. The 
indicator word defines the type. A BEFORE page image is written before a 
page is modified. An AFTER page image is written after the modification. 



Word 

1 
2 
3 
4 
5 
6 



} 



10-n 



Contents 

Record control word for journalizing 

Checksum 

Job number 

Start date (MMDDYY) 

Start time (HH.TTT) 

Indicators (bits 0-11) 

Activity number (bits 27-35) 

Lines per page (bits 0-17) 

Sequence number (bits 18-35) 

I-D-S data file name 

Activity page image 



Slave End Sync, Record Type 04 . This record is written when an I-D-S 
slave program terminates. The termination code is stored in the record. 



Word 

1 
2 
3 
4 
5 
6 



] 



Contents 

Record control word for journalizing 

Checksum 

Job number 

Start date (MMDDYY) 

Start time (HH.TTT) 

Indicators (bits 0-11) 

Activity number (bits 27-35) 

Termination code 

I-D-S data file name 
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Journal Record, Record Type 09 . This record is written when subroutine 
.QSTB is used to gather type B subroutine execution information. (See 
QUTR Program writeup in Chapter 8.) 



Word 

1 
2 
3 
4 
5 
6 



9 
10 

11 
12 



Contents 

Record control word for journalizing 

Checksum 

Job number 

Start date (MMDDYY) 

Start time (HH.TTT) 

Indicators (bits 0-11) 

Activity number (bits 27-35) 

Alter number of call to subroutine 

I-D-S data file name 

Control word (see following explanation) 



Number of reads 
Number of writes 



^ 



for any given 
control word 
(word 10) 



The control word format (word 10) is as follows; 








5 


6 




17 


18 




23 


24 




35 


Code 




Type 


- 1 


MBZ 


Type ■ 


- 2 





where ; 



Code is one of the following function values: 

1 - Store record type 

2 - Retrieve record type 

3 - Retrieve current record type 

4 - Retrieve direct 

5 - Retrieve each 

6 - Retrieve next of chain 

7 - Retrieve prior of chain 

8 - Retrieve master of chain 

9 - Head of chain 

10 - Modify record type 

11 - Delete record type 

12 - Debug 

Type - 1 is the record type for the preceding function 
or the record type of the master of a chain. 

Type - 2 is the record type of a detail of a chain. 
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Definition of Terms 



Checksum 



The checksum of all words (other than the 
word) in the record. 



checksum 



Date 



A 6-character field indicating month, day, and year 
the record was written. For slave End Sync records, 
it is the date the corresponding Slave Begin Sync 
record was written. 



Time 



Time the activity was started expressed in hours, 
decimal point, and thousandths of an hour in BCD 
format (HH.TTT) . For Slave End Sync or Page Image 
records, it is the time in the corresponding Slave 
Begin Sync record. 



Indicators 



A 1-word indicator which defines 
and contains the activity number. 



the record type 



Record Type 



A 1-character BCD field that appears in bits 6-11 
of the indicator word. The record type indicators 
are shown below: 



TYPE 


3 


Slave Begin Sync 


(SLVBGN) 


TYPE 


4 


Slave End Sync 


(SLVEND) 


TYPE 


5 


Before Page Image 


(BEFORE) 


TYPE 


6 


After Page Image 


(AFTER) 


TYPE 


9 


Statistics 





Lines per Page 



The lines per page for the Before /After Page Image. 



Termination Code 



A 2-character code in bits 27-35 of the Slave End 
Sync record. Termination codes are: 



Normal activity termination 

00 Normal job termination 

cc Abnormal termination; cc is a 

2-character alphanumeric 

abort code. 



I-D-S Date 
File-Name 



A 12-character name, left justified, 
taken from the $ USERID card. 



This name is 
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Job Number 



A 5-character SNUMB for the job, left justified and 
followed by an ignore character. 



a*-«4--i TTT 4-\r MnTnHQT' 



Q— H 1 -f- Hi n :^r\T -i rvH ^r«+-i zri ^\t rmmVif^ t" _ 



Sequence Number 



A binary sequence number carried in the Page Image 
records. BEFORE records are sequenced by 1 in 
ascending order starting with 1. AFTER records are 
sequenced in descending order starting with all 
binary I's in bits 18-35. 



Record control word 
for journalizing 



A control word that contains the number of words in 
the record in bits 0-17 and defines it as record 
type 13(8), right- justified, in bits 18-35. 



Closing Journal Files 



The system-configured journal tape collects the journal data as one long 
file. From an operational point of view, it is necessary to periodically 
"close" one journal file and start another. This closing, followed by an 
opportunity to dismount and replace the journal tape, is done 
automatically when there is a master mode abort. 

The operator may periodically request that a journal file be closed and 

another file started. He does this by requesting control and using the 

IDSEJ typein. The system response to this input is shown in the 
following table. 



CONDITION 



ACTION 



An I-D-S activity is in 
execution. 



IDSEJ DELAY message is typed 
out. The I-D-S journal file 
will be closed when there is 
no I-D-S activity in 
execution. 



No I-D-S activity is in 
execution. 



An end-of-file is recorded on 
the journal tape and a dismount 
message is issued. 
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Journal Override 



Journal records are automatically written to the system-configured Error 
and Accounting tape; however, there are two activity override options 
available. Option 1 permits the user to request his own tape; option 2 
suppresses all journalization. 



The control card format for option 1 is : 



16 



jTAPE j JX , XID , , , , IDS- JOURNAL 



If a tape file JX is assigned for an activity, all journal record 
types — the Slave Begin Sync, Slave End Sync, and all BEFORE and 
AFTER records and all statistics records — are written to this 
file. 



The control card format for option 2 is: 



16 



[EXECUTE [debug 
I I 



DEBUG in the variable field of the $ EXECUTE control card causes 
bit 11 of the Program Switch Word to be set ON which prevents any 
journal records from being generated. 



Examples ; 



The Slave Begin Sync, Slave End Sync, BEFORE and AFTER records 
are written to the user-supplied file JX. 



1 


8 


16 






IDENT 
OBJECT 

1 • 






$ 
§ 


I • 

|DKEND 

(EXECUTE 

ITAPE 
1 


Options 
JX,X1D, , 


, , IDS- JOURNAL 
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2. No journalization takes place. 



1 


8 


16 


$ 


llDENT 




$ 


'OBJECT 




$ 


• 

DKEND 




$ 


lEXECUTE 
1 . 

• 
• 

1 


DEBUG 



Journal File Map 

A map of all Sync records contained on the I-D-S Journal file may be 
produced by executing the .QUTJ I-D-S utility routine (1) when a journal 
file has been made available after the abnormal termination of an I-D-S 
activity or, (2) the operator requests an end-of-file condition. 

A sample journal file map follows. 

iiJNL 01 09-27-68 11,341 IDS JUUHNAL TAPt REPOHT 

IDS UTILITY RQUTlNb - ,UUTJ - VERSION 0801^8, 



9 


SLVBGN 


1-QUTl 


09-27-68 


11.199 


030 





IDSF^UKYQUAD 


10 


SLVEND 


1-OUTl 


09-27-68 


11,199 


040 


00 


lUSFOUKYQUAU 


15 


SLVBGN 


1-TST03 


09-27-68 


11.210 


030 





IDSF3UHYQUAD 


38 


SLVBGN 


1-TST3C 


09-27-68 


11.211 


030 





IDSFDUHYQUAD 


117 


SLVEND 


1-TST03 


09-27-68 


11,210 


040 


00 


lUSFOUHYQUAD 


133 


SLVEND 


1-TST3C 


09-27-68 


11.211 


040 


00 


IDSFaURYQUAD 


138 


SLVBGN 


1-QUtDL 


09-27-68 


11.222 


030 





IDSFOUKYOUAU 


140 


SLVEND 


1-QUTDL 


09-27-68 


11.222 


040 


00 


IDSFJURYQUAO 


142 


SLVBGN 


2-QUTDL 


09-27-68 


11,227 


030 





IDSF3URY0UAD 


143 


SLVEND 


2-QUTDL 


09-27-68 


11.227 


040 


00 


IDSFOURYQUAU 


149 


SLVBGN 


1-TST4A 


09-27-68 


11,237 


030 





IDSFDUHYQUAD 


1!J0 


SLVBGN 


1-TST4B 


09-27-68 


11,238 


030 





IDSFOURYOUAD 
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SLVEND 


1-TST4A 


09-27-68 


11,237 


040 


00 


1DSF3URYQUAU 


l'>3 


SLVEND 


1-TST4B 


09-27-68 


11.238 


040 


00 


IDSFOURYQUAD 


155 


SLVBGN 


1-TST4C 


09-27-68 


11,240 


030 





IDSF3URY0UAD 


156 


SLVEND 


1-TST4C 


09-27-68 


11,240 


040 


00 


IDSFDURYQUAO 


161 


SLVBGN 


1-QUTD 


09-27-68 


11,247 


030 





IDSFOURYQUAU 


162 


SLVEND 


l-QUTD 


09-27-68 


11,24/ 


040 


00 


IDSFOURYQUAU 
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RECOVERING AN l-D-S DATA FILE 



All I-D-S slave programs interface with GECOS-III through the MME GEIDSE 
incorporated in the I-D-S object-time subroutines. The MME enables the 
subroutines to record page images on a system configured journal tape. 
BEFORE page images are written to the journal tape prior to the 
modification of a page; AFTER page images are written to the journal 
tape following modification of the page. When recovery of the data file 
is desired, the journal tapes containing the required pages are 
processed as illustrated in Figure 27A. Figure 27B illustrates an 
alternate method. 



I-D-S 

SLAVE 

PROGRAM 



GECOS-III 
OPERATING 
SYSTEM 



DIRECTIVES 
(CRITERIA) 




QUTJ 



LISTING 



QUTP 




(OPTIONAL) 



LISTING 



QUTS 



DIRECTIVE 
(LOAD OPTION) 




LISTING 



Figure 2 7A. Operational Sequence to Re-establish an I-D-S Data File 
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GECOS-III 
OPERATING 
SYSTEM 



DIRECTIVES 
(LOAD OPTIONS) 




QUTL 



(OPTIONAL) 




LISTING 



Figure 27B. Alternate Operation to Re-establish an I-D-S Data File 
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The individuals responsible for maintaining the data base establish the 
selection criteria for obtaining the appropriate pages from the journal 
tape. This is done using the information from the Journal Tape Map or 
from a complete journal dump created by the QUTJ utility routine. The 
QUTP utility routine selects pages from the journal tape. The QUTS 
utility routine then sorts the selected page image records and purges 
multiple page images having the same page number. The sorted output 
consists of the first BEFORE or the last AFTER image for a given page 
number as required for the data file reload. The QUTU utility routine 
reloads the output to the appropriate portions of the data file. 

Since rollback does not reestablish the data file to a previous 
condition, the MME GECHEK and MME GEROLL should not be used by an I-D-S 
program . 



I-D-S EXECUTION REPORT 

I-D-S appends information about the data base to the execution report. 
This information includes (1) the attributes of the data base (2) total 
input/output performed on the data base, and (3) input/output performed 
on the data base as a function of each I-D-S subroutine. Formats of the 
three types of information are shown in the following examples and are 
explained by the notes corresponding to the circled callouts. 

Example 1; Data Base Attributes 

Clj Files Allocated — the number of permanent and/or temporary 
^"^ IDS files allocated to the activity 

(2^ Range — the smallest and largest page number present in the 
^-^ files 



Basesize — the value to be used in the randomize routine 



© 

(4) Buffers — the number of page buffers present 

An entry appears under each of the following heads for each file or 
subfile: 

(Sj Filecode — the file code referenced by the program 

(6j Range — the range for this file or subfile 
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Clj Pagesize — the page size for this file or subfile 

(8) Pages/Page — the number of pages per page for the file or 
^^ subfile 

(9) Lines/Page — the number of lines per page for the file or 

subfile 



(10) Links Aloe — the number of links allocated to the file or 

subfile 



11) Links Nee — the number of links necessary to contain the 
pages defined for the file or subfile 



12) Access Mode — the mode in which the file or subfile is being 

accessed 



13) Inventory — the percentage value at which inventory will be 
updated on the file or subfile 



© © © 



1 FILES ALLOCATED, RANGE 1 - 100 BASESIZE 100 BUFFERS 2 9 

FILECODE RANGE PAGESIZE PAGES/PAGE LINES/PAGE LINKS ALOC LINKS NEC ACCESS MODE INVENTORY 
Al 1- 100 320 1 63 20 9 WRITE 75 



© © © © © 



10^ 11 fl2^ (13 
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Example 2; Total I/O Performed on Data Base 

The following are shown for each file or subfile: 

fl) File Code — the file code referenced by the program 

(2) # of Reads — the total number of reads that occurred on the 
file or subfile 

fSj # of Writes — the total number of writes that occurred on the 

file or subfile 

Mj Inventory Reads — the number of inventory reads that occurred 

on the file or subfile 

Csj Inventory Writes — the number of inventory writes that 

occurred on the file or subfile 

I-D-S UTILIZATION REPORT 

FILE CODE # OF READS # OF WRITERS INVENTORY READS INVENTORY WRITES 

TF 258 2883 1 1 

© © ® © © 
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Example 3 : I/O Performed on Data Base as a Function of Each I-D-S 
Subroutine 

This report is produced by the I-D-S close subroutine. Counts are 
accumulated for each primary entry subroutine — that is , each 
subroutine called by the object program. These are known as type A 
(.QSTA) subroutine execution statistics. (An additional, more detailed 
(type B) report can also be produced as a separate output at the user's 
option. For this report the .QSTB subroutine is used to accumulate the 
statistics on the journal file, and the QUTR program produces the 
report. See the QUTR writeup in Chapter 8 for details.) 

The type A report contains the following information: 

(ij Primary entry subroutine name 

^2^ Total number of times subroutine was called 

(3) Total number of reads for execution of the subroutine 

M) Total number of writes for execution of the subroutine 



SUBROUTINE STATISTICS 
NAME NO. TIMES CALLED 



.QSTOR 
.QGET 
.QCHN 
. QMDFY 

© 



18 
18 
88 
18 

© 



NO. READS 

6 







© 



NO. WRITES 

10 
2 
6 

24 



© 
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7. Memory Management 



ASSIGNMENT OF IDS BUFFERS AND WORK AREAS 



The I-D-S subroutines require data page buffer areas and working areas. 
The user defines the size of these areas by employing one of the two 
following procedures . 



With a $ USE Card 



A Labeled Common area (.QAREA) may be specified by the GELOAD control 
card shown below: 



16 



USE 



j.QMAX/l/, ,QAREA/n/, .QMIN/1/ 



The $ USE control card must be inserted before the $ EXECUTE card in the 

object deck so that GELOAD will encounter it prior to loading the I-D-S 

subroutines from the library. Refer to the GE-600 Line General Loader 
Reference Manual , CPB-1008. 

The value supplied for /n/ must be large enough to contain the working 
area plus at least three page buffers. The following formula may be used 
to determine the total space required. 



(NF*10) + 10 + ( (MP + 21)*NB) + NO +(I + 3) 



where NF is the number of files allocated 

MP is maximum page size allocated in words 
*NB is number of page buffers 
I is maximum sector size for files containing 
inventory. (For DSU200, I = 40; for all other 
mass storage devices I = 64.) 
*N0 is number of page buffers which overlay .QOPEN. 



*The total number of buffers (TB) must be at least three, 
where NO is determined by the following formula: 

NO = 816/(MP+20) 



TB = NB+NO, 
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When a sort is included as part of an I-D-S activity, a $ USE card must 
be used to constrain the work area of one of the systems. If this is not 
done, both systems will compete for the area not assigned to other 
program segments. 

A sample deck setup for an I-D-S sort using disc sort and temporary 
I-D-S files follows. With this setup, the sort work area will be the 
core storage remaining from the $ LIMITS card after subtracting the user 
program size and the I-D-S page buffer size (.QAREA) . 



1 


8 


16 


$ 


1 

IIDENT 




$ 


'use 


.QMAX/1/, .QAREA/50 00/, .QMIN/1/ 


$ 


'object 


USERPROGRAM 


$ 


'execute 




$ 


'limits 


10, 32K 


$ 


JDISC 


TF,D1S,10R 


$ 


.DISC 


S1,X1R,5R 


$ 


|DATA 


• Q 


IDS 


|CKEATE 


FC/TF/ , BSS Z/100/ , RNG/1 , 100 / 


$ 


lENDJOB 




***EOF 


1 





Without a $ USE Card 



When the $ USE control card procedure is not used, the .QOPEN I-D-S 
subroutine attempts to use the area in memory not assigned to other 
program segments. The size of this available area is inserted in word 
37(8) of the slave program prefix by GELOAD during the loading process. 
As in the procedure above, the available area is divided into a work 
area and some number of buffers, depending on the size of the area. A 
minimum of three buffers must be established or the slave program will 
be terminated. The .QOPEN subroutine modifies the content of word 37(8) 
to reflect the usage of this area. 

When the file is opened, the size of .QAREA is determined and then used 
in the following manner (see Figure 28) : 



Slave I-D-S Control Table - this table consists of 10 control 
words plus 10 words for each I-D-S subfile (temporary or 
permanent) assigned to the activity. 



Inventory Record Buffer - this area is equal to 
more than the largest inventory sector allocated. 



three words 



Page Buffer Activity Table - this table contains one word 
each page buffer. 



for 
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Data Page Buffers - these buffers are equal to the page size of 
the largest page allocated plus 20 decimal words. 

The first inventory buffer exists as defined in Figure 28. The 
other inventory buffers and their headers are generated by 
.QOPEN and overlay the code in .QOPEN that may be executed only 
once. As many buffers exist as will fit in the overlay area. 





Total 


Control 


Work Area 




^ 


_ 


First 


File Entry 



nth File Entry 



Header for Inventory Buffer 



Inventory Buffer 



Buffer Activity_Ta_ble 



Header for Buffer n 
Data Page Buffer n 



Header for Buffer 



Data Page Buffer 



Length of either 
.QAREA or an open 
area from 37q 



T 



L 



Largest page 

size plus 

Header 



Figure 28. Labeled Common .QAREA 
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SLAVE l-D-S CONTROL TABLE 

Figure 29 shows a Slave I-D-S Control Table used by the I-D-S 
subroutines to honor the attributes of an I-D-S data file. Each subfile 
may be different, such as page size and percent of page fill for 
inventory. The I-D-S subroutines use a coininon GEFRC file control block, 
to do all I-D-S data page and inventory page I/O on the mass storage. To 
accomplish this , the file control block control information is kept in 
the SICT Table for each unique file. It is then placed into the file 
control block when an I/O request for a page is needed. The total length 
of the table is dependent on the number of files allocated. 



Bits 


1718 35 






rd 


Pointer to Current Entry 


MBZ 


^' 


1 


Maximum Page Size 


Base Size 




2 


Lowest Page Number 


Highest Page Number 


u 


3 


Maximum Inventory Sector 


Page Buffer Size 


.-1 


4 
5 
6 
7 
8 


( 

MBZ 

\ 


MBZ 

) 


c 

!- 

4- 
C 

c 
c 

4- 

i 




9 


MBZ 


Count of Entries 


r 





RANGE Rl 


RANGE R2 


i 


1 


Inventory Write Counter 


Page Size 




2 


Pages/Page No. 


Lines Per Page 




3 


RBA of Current Inventory 


Inventory Percent Fill 


o 
u 


4 


Inventory Read Counter 


RBA Current Page 


u 
a 
o 


5 


Sectors/Page 


Sector Size 


(U 


6 


Gross Write Counter 


Gross Read Counter 


P4 


7 


Base RBA of Inventory 


FILCB+0 [18-351 


^ 




8 


FILCB-5 [18-35] 


FILCB-1 [18-35] 




9 


Access Mode 


FILCB-4 [24-35] 


' 







Figure 29. Slave I-D-S Control Table 
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The description of the Slave I-D-S Control Table (SICT) follows, 



Total Control Entry 



Word 
bits 
0-17 



18-35 



Pointer to current entry - the address of the SICT table entry 
which contains the relative block address of the page number 
last requested via the I-D-S mapping subroutine. 

Must be zero. 



Word 1 
bits 
0-17 Maximum page size - the value in words of the largest page 
size allocated. 

18-35 Base size - the total number of pages in the I-D-S data file. 



Word 2 
bits 
0-17 

18-35 



Lowest page number - the lowest page number allocated. 

Highest page number - the highest page number allocated, 
be less than or equal to the value in the base size. 



Must 



Word 3 
bits 
0-17 



18-35 



Maximum inventory sector - the size in words of the largest 
inventory sector allocated. 

Page buffer size - the maximum page size plus 20 decimal to 
include the page header area. 



Word 4 

through Must be zero. 

Word 8 



Word 9 
bits 
0-17 



Must be zero. 



18-35 Count of entries - the number of subfiles allocated to form 
this I-D-S data file. 



155 



Individual File Entries 



bits 
0-17 

18-35 



RANGE Rl - the lowest page number assigned to the subfile. 

RANGE R2 - the highest page number assigned to the subfile. R2 
must be greater than or equal to Rl. 



Word 1 
bits 
0-17 



18-35 



Inventory write counter - a counter for the nxomber of times an 

inventory record has been written to the file. 

Page size - the page size in words defined for the file. The 

page size must be greater than or equal to 40 and less than or 
equal to 6 40. 



Word 2 
bits 
0-17 



18-35 



Pages/page No. - the number of pages as developed by dividing 
6 3 by the number of lines per page. 



Lines per page - the number of lines that may be used in 
page or pagette. 



any 



Word 3 
bits 
0-17 



18-35 



RBA of current inventory - the Relative Block Address (RBA) of 
the current inventory record. Inventory records are physically 
stored beginning in the first sector, following the last data 
page of the file. 

Inventory percent fill - the number of characters that may be 
placed in a page of this file before the inventory adjustment 
routines are called. If the value is negative (bit 18=1) , 
there are no inventory records, therefore, there is no 
inventory processing. 



Word 4 
bits 
0-17 



18-35 



Inventory read counter - a counter for the number of times an 
inventory record has been read from this file. 

RBA current page - the Relative Block Address of the last page 
number accessed in this subfile. 
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Word 5 
bits 
0-17 



18-35 



Sectors/Page - the number of sectors within a page. The size 
is calculated by dividing sector size of the mass storage 
device into the page size. 

Sector size - the sector size of the hardware device of this 
file. 



Word 6 
bits 
0-17 



18-35 



Gross write counter - a counter for the number of times data 
pages or inventory records have been written to the file. 

Gross read counter - counter for the number of times data 
pages or inventory records have been read from the file. 



Word 7 
bits 
0-17 



18-35 



Base RBA of inventory - relative block address of the 
beginning of inventory for the file. 



FILCB+0 



contents of the GEFRC file control block. 



Word 8 
bits 
0-17 

18-35 



FILCB-5 (18-35) - contents of the GEFRC file control block. 
FILCB-1 (18-3 5) - contents of the GEFRC file control block. 



Word 9 
bits 
0-17 



18-35 



Access mode - the access permissions requested from the $ 
PRMFL card for this file or the permissions granted for the $ 
DISC or the $ MASS control card for this file. 

Bits READ (RETRIEVE) 

1 WRITE (UPDATE) 

2 Not used by I-D-S 

3 RECOVERY 

4-17 Not used by I-D-S 

FILCB-4 (24-35) - file code for the file. 
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DS INVENTORY RECORDS 



To minimize mass storage seek and transfer time, a number of inventory 
records are maintained in numerous buffers in memory. 



Buffer Format 



The I-D-S inventory record buffer format is shown in Figure 30. 



Bits 



1112 



1718 



35 



Word 

Inventory 1 

Header 

Work Area 2 



Inventory 
Record Area n 
Through 



Pointer to Next Buffer 


Buffer Number 


MBZ 


Beginning Reference Code 


MBZ 


Ending Reference Code 


Beginning Page No. 


A 


i 


Record Type 


Begin Line 


No. 


MBZ 


Ending Reference Code 


Space Available 



Figure 30. Inventory Record Buffer 



A description of the Inventory Record buffer follows; 



INVENTORY RECORD WORD AREA 



Word 
bits 
0-17 Address of the next Inventory buffer header (this list is 

circular) . 

18-35 The number of this buffer (starting at 0). 



Word 1 
bits 
0-11 



Must be zero. 



12-35 The beginning reference code of the Inventory record in the 

buffer. 

Bits 12 - 29 Page number 
30 - 35 Line number 
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Word 2 
bits 
0-11 

12-35 



Must be zero. 

The ending reference code of the Inventory record in the 
buffer. 



Bits 12 - 29 Page number 
30 - 35 Line number 



Word 3 

through 

word n Inventory record area. 



Buffer Strategy for Inventory Buffer 



If the inventory is needed for a page and the inventory record is not in 
memory, it is read into the inventory buffer defined as empty; and words 
1 and 2 of the buffer header are updated. 

The next inventory buffer as defined by word of the header is then 
established as the empty buffer. Its contents are written back to the 
data file if the contents have been altered. 



Record Description 



Inventory records are physically stored at the end of the file for the 
page-range specified. They are record type 1002(10). The Inventory 
record size is equal to the sector size of the device on which it is 
stored. Thus the number of pages covered by one Inventory record is 
variable; it is equal to 3 x (sector size-2) . On a DSU204 one link holds 
inventory for 10,944 pages; on a DSU270 or a DSU167 one link holds 
inventory for 11,160 pages. 

The initial inventory of space available will be the page size (in 
characters) less the space occupied by the Page Header record (22 
characters) . 
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The Inventory record format is shown in Figure 31, 



r* 



>• Must -Write Switch 
MBZ 



Bits 


1112 17181920 


2930 35 


Word 


Beginning Page Number 


A 




Record Type 


Beginning 

Line No. 


1 


MBZ 


Ending Reference Code 


2 


Space Available 



Figure 31. Inventory Record 



The bit configuration for an Inventory record follows: 



Word 
bits 
0-17 



Beginning page number that is contained in the Inventory 
record. 



18 



Must-Write switch - an indicator used by I-D-S subroutines to 
determine if this record has been modified since retrieval. 



19 Must be zero. 

20-29 Record type - a value of 1002 (10) assigned to each Inventory 
record . 

30-35 Beginning line number of the beginning page for this Inventory 
record. 



Word 1 
bits 
0-11 



Must be zero. 



12-35 Ending Reference Code that is contained in this Inventory 
record. 

Bits 12 - 29 Page number 
Bits 30 - 35 Line number 
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Word 2 
bits 
0-11 Space available in characters for the Reference Code contained 

in word 0, bits 0-17 and 30-35. 

12-23 Space available for the next ascending page (this may be a 

pagette) . 

24-35 Space available for the next page. 

Word 2 is repeated for consecutive pages until bits 24-35 of 
word n is the space, in characters, available in the page 
defined by the ending reference code (bits 12-35 of word 1) . 



I-D-S DATA PAGES 

To minimize mass storage seek and transfer time, a number of data pages 
are maintained in numerous buffers in memory. The number of buffers 
depends on the amount of space available in .QAREA after loading the 
program. 

The greater the number of data pages kept in memory, the greater the 
possibility that the one needed next will already be there. To further 
improve the possibility of finding the page desired in memory, the I-D-S 
subroutines keep track of page utilization (record activity) and hold 
the most recently active pages in memory. Pages infrequently accessed 
are retired from memory as others are called in. The I-D-S subroutines 
note which pages have been modified and only the modified pages are 
written back to mass storage. 



Buffer Format 

The I-D-S page buffer format is shown in Figure 32, 
The description of the Data Page Buffer follows. 
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PAGE HEADER V.'ORK AREA 



Word 
bits 
0-17 



Pointer to the next buffer. This will be zero in the last 
buffer. 



18-35 Buffer number - the number of the buffer beginning with zero. 



Word 1 
bits 
0-11 



Must be zero. 



12-35 The beginning reference code of the I-D-S data page in the 
buffer. 

Bits 12 - 29 Page number 
30 - 35 Line number 



Word 2 
bits 
0-11 



Must be zero. 



12-35 The ending reference code of the I-D-S data page in the 
buffer. 

Bits 12 - 29 Page number 
30 - 35 Line number 



Word 3 
bits 
0-23 



Must be zero. 



24-35 Character space available in the I-D-S data page when read 
from the mass storage device. 
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Bits 



56 



1112 



17181920 



2324 2627 2930 



35 



4 


i 
Word 




1 


Page 

Header 

Work 


2 
3 


Area 


4 




5 




6 


^ 


r 7 


i 


8 




9 




10 




11 




12 



Journal 

Tape 

Header 



I-D-S 

Data 

Page 



13 
14 
15 
16 
17 
18 
19 



20 

Through 

Word n 



Pointer to Next Buffer 



MHZ 



MBZ 



Buffer Number 



Beginning Reference Code of X-D-S Data Page 



Ending Reference Code of I-D-S Data Page 



MBZ 



Character 
Space Available 



Available Line Flag Indicator 



MBZ 



Work Area for GEFRC l/O Control 



Size 



Accounting Record Type 



Checksum 



Job Number 



Start Date 



Start Time 



MBZ 



Journal i 
Record Typ.e 



MBZ 



Lines/pg. for B/A Page Image 



Activity Number 



Sequence Number 



I-D-S Data File Name 



Page Number 



-CALC Chain NEXT 



A B Record Type 



^4~^P^"^^ Available —p 



'Available Line Number Flags' 



P MBZ 



Figure 32. Data Page Buffer 
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Word 4 
bits 
0-35 



Available line flag indicator of the I-D-S data page when read 
from the mass storage device. 

= line flags available 

7^ line flags not available 



Word 5 
through 
Word 7 



Must be zero. 



JOURNAL TAtE CONTROL AREA 



Word 8 
through 
Word 10 



Work area for GEFRC I/O control - contains an I/O control 
word. Block Serial number and Record Control word. 



Word 11 
bits 
0-17 Contains the number of words in the record when written to the 
journal tape. 

18-35 Contains the value 13(8) to define the accounting record type. 

Word 12 
bits 

0-35 Checksum - all words (other than the checksum word) in the 
record. 



Word 13 
bits 
0-35 



Job number - the five character SNUMB for the job, left 
justified and followed by an ignore character. 



Word 14 
bits 
0-35 



Start date - month, day, year the activity started, in BCD 
format (MMDDYY) . 



Word 15 
bits 
0-35 



Start time - time the activity started expressed in hours, 
decimal point, and thousandths of an hour in BCD format 
(HH.TTT) . 



16 4 



Word 16 
bits 
0-5 

6-11 



12-26 
27-35 



Must be zero. 

A 1-character BCD field that defines the journal record type. 

Type 5 Before Page Image (BEFORE) 
Type 6 After Page Image (AFTER) 

Must be zero. 

Activity number - a 9-bit binary job activity number. 



Word 17 
bits 
0-17 

18-35 



Lines per page for the Before/After Page Image. 

Sequence number - a binary sequence number. BEFORE records 
are incremented by 1, starting with 1. AFTER records are 
decremented by 1, starting with -1. 



Word 18 
through 
Word 19 
bits 
0-35 



I-D-S Data File Name - a 12-character name left justified. 



I-D-S DATA PAGE AREA 



Word 20 
through 
Word n 



The area which contains the I-D-S data page when read from the 
mass storage device. 
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Buffer Strategy for Page Buffers 



Each time a page is brought into memory its buffer number is placed at 
the head of a buffer table. If a page already in memory is used again, 
its buffer number moves to the head of the table, 
frequently used pages are at the top of the table and 
little or no recent use are at the bottom of the table 

always available for reading a data page. To make a buffer available, 
the page at the bottom of the list is written back to the mass storage 
device, provided there has been activity updating that page. This buffer 
is called the EMPTY buffer; it is the buffer with lowest activity. 



Thus, the most 
the pages with 
Buffer space is 



The order of the chain is defined in an Page Buffer Activity Table 
(Figure 33) which contains one word for each page buffer in .QAREA. The 
activity chain shown in Figure 3 4 is a closed circular loop of buffer 
numbers. 

There is always an EMPTY buffer whose NEXT is the buffer of highest 
activity. 

The PRIOR of the buffer of highest activity is the EMPTY buffer. 

The other buffers in the Page Buffer Activity Table have, in the PRIOR 
column (bits 0-17) , the buffer number of the next higher (more recent) 
activity. The NEXT column (bits 18-35) contains the buffer number of the 
next lower (less recent) activity. 

For example, if buffer 5 is the EMPTY buffer, then buffer 4 is the most 
active buffer. 



Buffer 
Number 



1 
2 
3 

4 
5 



PRIOR 



1718 



NEXT 



35 



4 


2 


3 


5 





3 


2 


1 


5 





1 


4 



Figure 33. Page Buffer Activity Table 
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■> 2 



Decreasing 
Activity 




Figure 34. Chain Concept of Buffer Activity 



Page Description 



There are two types of I-D-S data pages; 



Base Page 

I-D-S Pagette 



The I-D-S data page consists of a fixed size which is assigned when the 
I-D-S file is created. It may contain any combination of logical record 
types linked into their respective chains. Each type has its own 
specific length. Related record types are associated and linked 
according to their data content and may be stored within the same page. 
Space is fully utilized by packing these records within the page. 

Every page begins with a unique Page Header record. This record contains 
several control fields used by the I-D-S subroutines, as follows: 

1. Reference address of the page (page number) . 

2. Space available for additional records. 

3. I/O control indicating whether the page has been altered since 
retrieval. 

4. Chain field indicating reference code of the first record of a 
chain of calculated records, all of which randomize to this 
page. 

5. Line numbers available for assignment within the page. 
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Base Page . The format of the Base Page Header record is shown in Figure 
35. 



Characters 
Word 





- 




^Must-Write Switch 
(bit 18) 








r-^- Be fore -Image Switch 
(bit 19) 







1 2 


3 4 


5 


1 

Reference Code 1^ 
Page Number ' 


B 


1 

Rpr.ord [^ 


Type j^ 



CALC Chain 
NEXT Link 



2 




3 


4 




5 




1 
^1 


Space 
Available 




1 






1 

I 


1 





Available Line Number Flags- 



Begin First Data Record Area- 
1 2 3 



MBZ 



■Bits 22-23 



Figure 35. Base Page Header Record 
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The bit configuration for the Base Page Header record follows : 



Word 



bits 
0-17 



18 
19 

20-29 
30-35 



Reference code page number - a number from 1 through 262,143. 
During file initialization, each page requested by the user is 
assigned a unique number within this range. 

Must-Write switch - an indicator used by I-D-S to determine if 
a page has been altered since retrieval. 



Before-Image switch - an indicator used by I-D-S 
that a page to be modified has been written to 
tape prior to the modification. 



to indicate 
the journal 



Record type 
record. 



a code of 1000(10) assigned to each Page Header 



First character of the CALC chain NEXT Link - a pointer to the 
first CALC record contained in the chain. If no CALC records 
are present, it points to itself. (The Page Header record is 
the defined master of the CALC chain.) 



Word 1 

bits 
0-17 

18-29 



30-35 



CALC Chain NEXT Link 

Space available - current status 
storing records within a page. 



of available space for 



Available line number flags (0-5) - an indicator used by I-D-S 
to determine line numbers available for assignment within a 
page: 

= line number available 

1 = line number not available 

There are 6 4 line number flags. They are numbered left to 
right starting with zero. Line number is always used; it is 
line number of the Page Header record. A maximum of 63 data 
records can be stored to a page. 



Word 2 



bits 
0-35 



Available line number flags (6-41) 
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Word 3 
bits 

rv_o 1 
\j — ^ J. 

22-23 



24-35 
through 
word n 



Avai-lal^ls line nuniber fibers (42—6 3) * 
Must be zero. 

End of Page Header record. The length of the record is 22 
characters. 



Bits 24-35 of word 3 through bit 35 of word n contain data 
records. 



Pagette . A pagette is introduced by setting the value of lines per page 
to less than 63. By dividing the lines per page into 63, the number of 
pages required to hold 63 line flags is developed. The first of these 
pages is called the BASE page. It contains a Page Header record (type 
1000 decimal) which is the master record of the CALC chain for this page 
number. The remaining pages are called PAGETTES. They contain a Pagette 
Header record (type 1003 decimal) . They are not the master of any chain. 

The available line number flags begin in the base page. For example, if 
the lines per page equal 21, this would require (63/21=3) pages to hold 
the 63 line number flags. Pages will have the line number flags set off 
for line numbers not allowed in the page. Thus, a base page will have 
line number flags as follows: 



1-21 Available 
22-63 Not available 



Pagette number 1 will have: 



1-21 Not available 
22 - 42 Available 
43 - 63 Not available 



Pagette number 2 will have: 



1-42 Not available 
43-63 Available 
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The pagette allows users to increase the number of reference codes in 
their I-D-S data file. This facility is probably most useful on some 
portion of the total file that has been filled by large records. 

For example, let record size be equal to the available space in a page 
such that one logical record fills a page. This record may be a 
dictionary record. When this record is stored the user eliminates 62 
available reference codes. Thus, if several records are stored, several 
hundred potential reference codes are eliminated. 

The user may choose to increase the page size such that several large 
records may fit into a single page, but practical limits on page size 
must be observed. Thus, the next approach may be to limit the lines per 
page, making available all 63 lines (reference codes) for each page. 

The Pagette Header record format is shown in Figure 36 . 



►Must-Write Switch 

I ►Before-Image Switch 



Bits 


1112 17 


18192021222324 2930 35 


Word 


Reference Code Page Number 


\ B 


Record Type 


1st Character 
of Paee No. 




Last 2 Characters 
of Page Number 


Beginning 
Line Number 


Character Space 
Available 




1 








B Number Flags 


J 


2 


■ ■ " Available Liii 


n 










3 


w 


Begin Data 


Record Area | 



I 



-MBZ 



Figure 36. Pagette Header Record 



The bit configuration for the Pagette Header record follows: 



Word 
bits 
0-17 



18 



Reference code pagette number - a number from 1 through 
262,143. During initialization, each pagette is assigned a 
unique number within this range. 

Must-Write switch - an indicator used by the I-D-S subroutines 
to determine if a pagette has been modified since retrieval. 
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19 Before-Image switch - an indicator used by the I-D-S 
subroutines to indicate that a pagette has been written to the 
journal tape prior to modification. 

20-29 Record type - a value of 1003 (10) assigned to each Pagette 
Header record. 



30-35 First character of the pagette number, which forms 
beginning reference code. 



the 



Word 1 
bits 
0-11 



12-17 



18-29 



30-35 



Last two characters of the pagette number, which forms the 
beginning reference code. 

Beginning line number of pagette - first available line number 
that may be placed in the pagette. 

Space available - characters of available space for storing 
records within the pagette. 

Available line number flags (0 through 5) - an indicator used 
by I-D-S to determine which line numbers are available for 
assignment within a pagette: 

= line number available 

1 = line number not available 

There are 64 line number flags. They are numbered left to 
right starting with 0. Line number is always used; it is the 
number of the Pagette Header record. 



Word 2 
bits 
0-35 



Available line number flags (6-41) 



Word 3 
bits 
0-21 

22-23 



Available line number flags (42-63) 
Must be zero. 



End of Pagette Header record. The length of the record is 22 
characters . 



24-35 
through 
word n 



Bits 24-35 of word 3 through bit 35 of word n contain data 
records . 
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I-D-S DATA RECORDS 



Data records of I-D-S are fixed-format, fixed-length; that is, the 
length and format of a specific type of record, such as payroll or 
inventory, are fixed by the specifications of the systems designer 
Records of many different types, each with its own length and format) 
may be used in the system. To maintain control, each record must have 
the same identification fields at the beginning. These fields are (1) 
line number portion of the reference code, (2) record type and (3) 
record length. The rest of the record consists of data and chain fields 
to suit the application requirements. 

Records may have any number of data fields, each defined as some number 
of decimal, alphabetic or alphanumeric characters. Fields may vary in 
size from one character to many characters, as for a drawing or part 
number or an employee's name. These fields must be specified by the 
systems designer. 

The format of the data record is shown in Figure 37. 



Delete Switch 



Bits 
Word 



56 



Line No. 



Record Type 



-CALC Chain NEXT- 



1718 



2324 



2930 



35 



Record Size 



Begin Data Fields 






Chain Pointer Reference Code 



Figure 37. Data Record 
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The bit configuration for a data record follows; 



Word 
bits 
0-5 



7-17 



18-29 



Line number - a number from 1 to 63. A unique number is 

assigned to each data record as it is stored in a page. This 

number combined with the page number from the Page Header 
record completes the reference code. 

Delete switch - an indicator used by the I-D-S subroutines to 
recognize a record that is logically but not physically 
deleted. When all chain pointers in a record are equal to 
zero, the record will then be physically deleted and its line 
number wiM be made available for use in the page. 

Record type - a unique number from 1 to 999 used to identify 
different kinds of data records. The numbers 1000 and greater 
are reserved for use by I-D-S. 

Record size - the number of characters in the record including 
all control fields, data fields and chain pointers. The line 
number is character 1 of a record. 



30-35 and 
Word 1 
bits 
0-17 



CALC chain NEXT - the reference code of the NEXT record in the 
CALC chain. If this is the last record in the CALC chain, it 
will contain a reference code of the Page Header record which 
is the master of this CALC chain. The chain pointer defined as 
detail of CALC chains. All other records do not contain this 
pointer and the data begins in this area. 



Bits 30-35 and 

0-11 Page number 
12-17 Line number 



18-35 
through 
word n 



Beginning of available space for data characters, 
be n characters in length. 



The data may 



Word n 
bits 
0-23 



The Chain pointers begin in the character position immediately 
following the last data character. 

The chain pointer reference code is 24 bits in length. 

Bits 0-17 Page number 
18-23 Line number 
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There may not be any chain pointers in the record if it is not a member 
of any chain, such as a Primary record; or the only pointer may be the 
CALC chain NEXT. The presence of chain pointers is dependent on the 
description of the I-D-S record. The type of chain pointer, NEXT, PRIOR, 
HEAD, and the chain it is pointer for is described in the definition 
structure associated with this record type. 
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8. I-D-S Utility Programs and Subroutines 



The following I-D-S utility programs and utility subroutines are 
described in this chapter: 

Programs : 

Randomizing Analyzer/Calc Pre-Load Sort Utility Program (QUTC) 

Storage Tape Dump/Print Routine (QUTD) 

Page Initialize Utility Routine (QUTI) 

Journal Tape Dump (QUTJ) 

Data Base Load/Print Utility Routine (QUTL) 

Journal Record Selector (QUTP) 

Execution Information Report (QUTR) 

Selected Record Sort (QUTS) 

File Utility (QUTU) 

Subroutines : 

Directive Processor (.QDIR) 
Trace and Print Record (.QSTC) 
Verify and Print (.QUTF) 

I-D-S execution activities may require that permanent, temporary, or a 
mixture of an I-D-S data file be used. The following examples of deck 
setups may be applied to all I-D-S utility programs and subroutines and 
user execute activities. 



PERMANENT I-D-S DATA FILE 

The following deck setup is for a permanent I-D-S data file. 
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IIDENT 
lUSERID 

I . 

JPRMFL 
JPRMFL 
IPRMFL 

IPRMFL 
I 

I • 
I 



16 



jIDSOOjDATABASEMGR, PERM IDS FILE 
iTriRPnTTRvnTianSnaTaRaRE 



pil , R/W , R , IDSFOURYQUAD/QUADO 1 
|a2 , R/W , R , IDSFOURYQUAD/QUADO 2 
|A3 , R/W , R , IDSFOURYQUAD/QUADO 3 
lA4 , R/W , R , IDSFOURYQUAD/QUADO 4 



***EOF I 



|ENDJOB I 



TEMPORARY IDS DATA FILE 



The following deck setup is for a temporary I-D-S data file. 



16 



$ 
$ 
$ 
$ 
$ 
IDS 



IDS 
IDS 
IDS 
$ 



IDENT 



$ 
*** 



I 
I 
I 

I : 

|14ASS 
|DISC 
|DRUM 

IMASS 
IDATA 

'create 

I 
1 

.CREATE 
|CREATE 
iCREATE 
IDATA 

I • 
I • 

Iendjob 



IDSOO,DATABASEMGR, TEMP IDS FILE 



A1,X1S,13R 
A2,X2S,11R 
A3,X3S,11R 
A4,X4S,11R 

Q 
iFC/Al/,BASESIZE/480/, RANGE/1, 120/, 
PAGESIZE/160/,LINESPERPAGE/32/, 
INVENTORY/25/ 
]fC/A2/,BSSZ/4 80/,RNG/121,240/,PGSZ/320/ 
'fC/A3/,RNG/2 41,360/ 

IfC/A4/,RNG/361,480/,PAGESIZE/64/,LPP/15/ 
ll* 



EOF 



TEMPORARY AND PERMANENT ID-S DATA FILE 



The following deck setup is for a mixed temporary and permanent I-D-S 
data file. 
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The permanent I-D-S data file attributes were supplied when the file was 
created; the temporary attributes must agree with the permanent 
attributes. 



8 



$ 

$ 

$ 

$ 

$ 

IDS 

IDS 

$ 

$ 
***EOF 



"1 

llDENT 

lUSERID 

I . 

I . 

IPRMFL 

|MASS 

|DISC 

jPRMFL 

iDATA 

ICREATE 

ICKEATE 

iDATA 
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Iendjob I 

1 I 



IDSOO,DATABASEMGR, MIXED IDS FILE 
IDSFOURYQUAD$DATABASE 

I 

!a1 , RA? , R, IDSFOURYQUAD/QUADO 1 

[a2,X2S,11R 

A3,X3S,11R 

Ia4 , R/W , R , IDSFOURYQUAD/QUADO 4 

I.Q 

fe'C/A2/,BSSZ/4 80/,RNG/121,240/,PGSZ/320/ 

tc/A3/,RNG/241,360/ 

,1* 

I 



UTILITY PROGRAM AND SUBROUTINE DESCRIPTIONS 



Descriptions of the I-D-S utility programs and utility 
presented on the following pages. 



subroutines are 
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Randomizing Analyzer/CALC Pre-Load Sort Utility Program (QUTC) 

Tne QUTC utility piroyir^rri pGrforius two uistinct j-unCi-j.on3 v^Gpcn^ing upon 
the directive option chosen. 

1. The ANAL option utilizes the user supplied directive cards to 
generate numbers which are randomized to produce base page 
numbers and the total number of times each base page number is 
returned by the CALC routine. This information is printed on 
the Base Page Report. In addition, should the page number occur 
more than 63 (maximum lines per page) times, or any smaller 
number supplied by the user, this and the page nimiber of the 
first page having space available will be indicated on the 
Overflow Report. 

2. The RAND or RANDA option is used to sort CALC records into base 
page sequence prior to loading the data base. The user's input 
file must contain only one record type and must be in system 
standard format. A minimum of one control field for randomizing 
must be specified and a maximum of three control fields may be 
specified. These control fields must appear on the directive 
card in the order in which randomization is to be performed. 

The total niomber of records randomizing to each page is accumulated and 
printed on the Base Page Report. In addition, a control for overflow is 
maintained which forces all overflow records to be sorted to the end of 
the file. The page which has overflow and the first page with space 
available is indicated on the Overflow Report. 



Printing of these two reports may be 
option. 



suppressed by use of the RAND 



Directive 



General Format: 



16 



IDS 



OPTION 

ETC 

lETC 



GENERATE/, OPTION/, 
CONTROL/OPTION/ , 
CONTROL/OPTION/ , 
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ANAL OPTION 

This option generates page numbers based on control parameters explained 
below. 

INPUT: 

Directive cards 

OUTPUT: 

IDS BASE PAGE REPORT 
IDS OVERFLOW REPORT 

Control for ANAL option on directive card: 

RNG/P1,P2/ Specifies the page range to be analyzed. 

Specifies the largest number to be randomized. 

Specifies the increment to be added for each iteration. 



MAX/nn.. .n/ 
INCR/nn.. .n/ 
FILL/nn/ 



Specifies the point at which the page will be considered 
full. 



Example : 



16 



IDS 



lOPTION 

JETC 

lETC 



IGE NE RATE / , AN AL / , 



|RNG/1, 100 00 0/, MAX/500 00/, 
IINCR/2/, FILL/32/ 



RANDA OPTION 



This option takes a user's file of CALC records, randomizes on specified 
control fields, producing a base page number, sorts the file into page 
number sequence with all overflow records sorted to the end of the file 
and produces two reports . 

INPUT: 

user's CALC file 
Directive cards 

OUTPUT: 

Sorted CALC file 
IDS BASE PAGE REPORT 
IDS OVERFLOW REPORT 

Control for RANDA option on directive card: 

RNG/P1,P2/ Specifies the page range into which records are to be 
stored. 
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CF/C1,L1/ 



Specifies fields to be used for randomizing. 



Cl reflects the beginning character of the field relative 
to one . 



FILL/nn/ 



Ll reflects the lengths in characters of the control field, 

A minimuin of one control field must be specified and a 
maximum of three may be given. 

Specifies the point at which a page will be considered 
full. If this parameter is not supplied 63 records per page 
is assumed. 



Example ; 

1 



16 



IDS '.OPTION |GENERATE/,RANDA/,RNG/500,1000/, 

|ETC iCF/2,6/,CF/20,5/,CF/10,2/, 

lETC lFILL/6 3/ 



RAND OPTION 

This option has the same effect as the RANDA option with the exception 
that no reports are produced. 



Example : 

1 



16 



IDS (OPTION |geNERATE/, RAND/, RNG/10, 200/, 
|ETC ICF/8, 10/, FILL/8/ 



Directive Restrictions 

1. Directives are examined to ensure that columns 1-3 contain IDS, 
that columns 8-13 contain OPTION and that the first parameter 
in the variable field is GENERATE. 

2. All control parameters are required with the exception of FILL. 
This is assumed to be 63 when not specified. 
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Operation 

1. Deck Setup for RANDA Option: 



** 
** 
** 
** 
** 
* 



$ 

$ 

$ 

IDS 

$ 

IDS 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

IDS 

$ 

IDS 

IDS 

$ 



"T" 



IDENT 
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PROGRAM 



***EOF I 



L 

'mass 
Idata 
'create 
idata 

(INITIAL 
PROGRAM 

Ilimits 

Imass 

Imass 

Itape 

Itape 

|MASS 

fAASS 

iSYSOUT 

DATA 

'CREATE 

Idata 

pPTION 
.ETC 
'END JOB 



IVTA00,YOUNGMAN,K72 



Activity 1. 



IQUTI 

|A1,D1S,10R 

|.Q 

|FC/A1/,BSSZ/100/,RNG/1,100/ 

II* 

|1,100 

I 

IQUTC Activity 2. 

|10,26K, , 

|A1,A1R,25L (Work file) 

|B1,B1R,25L (Work file) 

|T1,T1D,,1234, ,USER-IN (User's input file) 

|C1,C1D, , , ,USER-SORTED (User's output file) 

|S1,S1R,10R 

|D1,D1R,10R 

|P1 

|.Q 

|FC/D1/,BSSZ/100/,RNG/1,100/ 

GENERATE/, RANDA/,RNG/1, 3000 0/, 
CF/2,6/,CF/20,5/,CF/10,2/,FILL/63/ 



(Sort work file) 
(Work IDS file) 
(Report file) 



* The required file codes are Al and Dl respectively. The file code 
Al on LUD DIS in activity 1 is used as file code Dl on LUD DIR in 
activity 2. This file must be mass storage. 

** The required file codes are as defined in the example. Tape or mass 
storage are acceptable as file types. 

*** The BASESIZE and RANGE for the work I-D-S file may be computed in 
the following manner using the RANGE from the OPTION directive: 

((maximum range - minimum range) +1) /300=BSSZ 

( (30000 -1)+1)/300 = 100 

The PAGESIZE for this file must be 320 words and the LINES per page 
must be 63. 
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2. Deck Setup for ANAL Option: 



16 





$ 


I DENT 


1 

tVTAO , YOUNGMAN , K 7 2 




$ 


PROGRAM 


IqUTI Activity 1. 


* 


5 


MASS 


[ai,dis,ior 




$ 


DATA 


• Q 


*** 


IDS 


CREATE 


FC/A1/,BSSZ/100/,RNG/1,100/ 




$ 1 


DATA 


F* 




IDS 


INITIAL 


jl,100 




$ 


PROGRAM 


[qUTC Activity 2. 




$ 


LIMITS 


10,26K 


** 


$ 


MASS 


■A1,A1R,25L (Work file) 
B1,B1R,25L (Work file) 


** 


$ 


MASS 


* 


$ 


MASS 


|S1,S1R,10R (Sort work file) 


** 


$ 


MASS 


|D1,D1R,10R (Work I-D-S file) 




$ 


SYSOUT 


|P1 (Report file) 




$ 


DATA 


|.Q 


*** 


IDS 


CREATE 


|FC/D1/,BSSZ/100/,RNG/1,100/ 




$ 


DATA 


|I* 


*** 


IDS 


OPTION 


[GENERATE /, ANAL/ , RNG/1 , 3 / , 




IDS 


ETC 


IINCR/l/,FILL/63/,MAX/1000 00/ 




$ 


ENDJOB 


1 




***EOF 




1 



* Same as for RANDA Option. 

** Same as for RANDA Option. 

*** Same as for RANDA Option. 

3. Subroutines Called: 

.QOPEN - opens mass storage device files and builds tables to 
describe them. 

.QDIR - reads directives. 

.QMEX - writes messages on the execution report. 

.QSFD - advances subfields of the variable field of directive for 
processing. 

.QCALC - computes a base page number. 
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q 
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3^ 
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3f 




■^7 
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7A 
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QUTD 



Storage Tape Dump/Print Utility Routine (QUTD) 



QUTD dumps to tape and/or prints all or selected portions of the 
appropriate storage devices allocated to the I-D-S data file. The 
portions of the file to be processed and the output media are specified 
by input data cards (directives) . 



Directives 



Directive fields begin in colximn 16 and are separated by commas. One or 
more ETC cards may be used to continue the fields if they run beyond 
column 72. Each card to be continued must end with a complete field, 
followed by a comma. 



There are four directives recognized by QUTD, 



16 



IDS 



DUMP 



|RNG/P1,P2/ 
Inull 



The DUMP directive causes pages PI through P2 to be written on magnetic 
tape. If the variable field is null, all pages of the file are written 
on magnetic tape. The file code for the magnetic tape is OT. RNG/P1,P2/ 
is the only option valid for this directive. 



16 



IDS 



PRINT |RNG/P1,P2/,. . . , 
Print option 



The PRINT directive causes PI through P2 to be written in print format 
and directed to SYSOUT via file code P*. If RNG is not specified, all 
pages of the file are written. 



Print Options 



NULL 
EMPTY 



Prints nonempty pages and indicates empty pages. 

Prints nonempty pages and the page header for each 
empty page rather than indicating a succession of 
empty pages only by a first page entry and a last 
page entry. 
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TYPES/A, B,C, . . ./ 



Prints only the record types specified by A,B,C, 
etc. (to a maximum of 10 types) . 



DELETE 



Produces a j_xj.e cOiitaxiij_ng reference code, oize 
and record type of all records deleted but still 
present on the file. 



IDS 



IDPRINT 

IPDUMP 

I 



16 



,RNG/P1,P2/,.. ./ 



The DPRINT/PDUMP directive (either form is acceptable) causes pages PI 
through P2 to be written on magnetic tape and to be sent to SYSOUT in 
print format, via file code P*. Either directive is a combination of the 
DUMP and PRINT directives. A null variable field causes all pages of the 
file to be written. All print options listed above are acceptable with 
either of these directives. 



16 



IDS 



POR 



I (not examined) 



The EOR directive forces an end-of-reel condition on the magnetic tape 
file. 



PAGE 


: XXXXX 


XX 


WD: 


LN: 


TYPE 


XXX 


XX 


XXXX 



ACTIVE PAGE SIZE; 



XXXX CH. 



XXX XX 

PAGE 



OCTAL 



OCTAL 



XXXX 



OCTAL 



OCTAL 



XXXXX XX ACTIVE PAGE SIZEi 
AND ALL INTERVENING PAGES 



OCTAL 



OCTAL 



OCTAL 



OCTAL 



OCTAL 




OCTAL 




OCTAL 




OCTAL 




BCD 




















OCTAL 




OCTAL 




OCTAL 




OCTAL 




BCD 



BCD 



BCD 



XXXX CH. PAGE EMPTY 



PAGE 



XXXXX XX 



ACTIVE PAGE SIZE: 



XXXX CH. 



PAGE EMPTY 
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Tape Format 

The data sent to the output tape file is written as variable length, 
logical records using the GEFRC subroutine PUT, The file is in standard 
system format with the exception of block size which is 1602 words. The 
Page Image record format is : 

Word Contents 

Accounting Record Header. The number of data words in the 
record is specified in bits 0-17. The record type, octal 
000013, is contained in bits 18-35. 

1 Checksum. 

2 SNUMB in bits 0-29. Ignore character (octal 17) in bits 30-35. 

3 Date as MMDDYY . 

4 Start time in hours and thousandths of hours as HH.TTT. 

5 Record type in bits 0-11 as 10. Bits 12-35 are presently 
unused and are zero. 

6 This word is presently unused and is zero. 

7 First six characters of user identification. 

8 Second six characters of user identification. 
9-n Active page image. 

Execution Report 

An execution report is produced as part of the user output. It 
describes, in chronological order, the functions performed as specified 
in the directives. In addition, error conditions are included to advise 
the user of exception conditions. 
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^^tySirs uion 



The following deck setups can be used to execute QUTD from the software 
library. 



1. Example for temporary files, 



$ 

$ 

$ 

$ 

$ 

$ 

$ 

IDS 

$ 

IDS 

$ 
***EOF 



I 

IJDENT 

[program 

[LIMITS 
IMASS 

'tape 

It APE 

Idata 

■create 

'data 

PDUMP 
(END JOB 
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QUTD 

OPTIONS 

A1,X1R,15R 

0T,X2S, ,, , DUMP-FILE 

DE,X3S , , , ,DELETE-FILE 

.Q 
FC/Al/,BSSZ/480/,RNG/l,120/,LPP/6 3/ 

I* 
DELETE/ 



(required file code) 
(required file code) 
(required file code) 



a. Pages 1 through 120 will be written to tape (file code OT) . 

b. All nonempty pages will be printed on P* and all empty pages 
will be indicated with a beginning and ending page number. 

c. All records logically but not physically deleted from the file 
will be written to tape (file code DE) and flagged on the 
printed report. 
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2. Example for permanent files. 



16 



$ 

$ 

$ 

$ 

IDS 

IDS 

$ 

***EOF 



jIDENT 

PROGRAM 

LIMITS 

[USERID 

|PRMFL 

IPRMFL 

[tape 

JDATA 

IDUMP 

IDPRINT 

lENDJOB 

I 



QUTD 

OPTIONS 

|IDSFOURYQUAD$DBASE 

|TF,RA'/R»IDSFOURYQUAD$DBASE/QUAD01 
|TG,R/W,R,IDSFOURYQUAD$DBASE/QUAD02 
|QT,X2S, , , , DUMP-FILE 
II* 

IrnG/1,120/ 
IeMPTY/, TYPES/100, 101, 102/ 



This deck setup will result in the following: 

a. Pages 1 through 120 (file code TF) will be written to tape 
(file code OT) . 

b. File code TG, in its entirety, will be written to tape. 

c. All page headers and all record types 100, 101 and 102 on file 
code TG will be printed. 
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Page Initialize Utility Routine (QUTI) 



devices allocated to the I-D-S data file with the page headers and 
creates or updates the inventory records. The portions of the file to be 
processed are specified by an input data card (directive) . The 
attributes of the file are acknowledged during the initialization 
process. 



Directives 

There are two directives recognized by .QUTI. 
1 8 16 



IDS 'initial JP1,P2 
t I 



The initial directive causes pages PI through P2 to be initialized 
with their page headers and the inventory records to be created as 
required. 



8 



16 



1 I 

IDS [header |P1,P2 
I t 



The header directive causes pages PI through P2 to be initialized 
with their page headers and the inventory records to be updated as 
required. This requires that the portion of the file must have been 
previously initialized by the initial directive. This directive 
allows a portion of the file to be purged and the inventory to be 
reset. 



Directive Restrictions 

1. The argument P2 must be greater than or equal to the argument 
PI. 

2. Directives are examined to ensure that columns 8-13 contain a 
legal directive code as described. Directives in error are 
written on the execution report followed by appropriate 
comments . 
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Execution Report 

An execution report is produced as part of the user output. It 

describes, in chronological order, the functions performed as specified 

in the directives. In addition, error conditions are included to advise 
the user of exception conditions. 

Operation 

1. Deck setup. 

The following deck setup will initialize a permanent I-D-S data 
file. 



1 


8 16 


$ 


1 j 

ISNUMB QUTI 


$ 


IIDENT ]lDSOO,DATABASEMGR 


$ 


lUSERID |IDSFOURYQUAD$DAT ABASE 


$ 


IPROGRAM IQUTI 


$ 


IPRMFL Ia1,R/W,R,IDSFOURYQUAD/QUAD01 


IDS 


IINITIAL ll,120 


$ 


Iendjob 1 


***EOF 


1 1 



The following deck setup can be used to initialize a temporary 
I-D-S data file. 



8 



16 



$ 


ISNUMB 


$ 


IIDENT 


$ 
$ 


IPROGRAM 
I" file" 


$ 


iDATA 


IDS 


.CREATE 


$ 

IDS 
$ 
***EOF 


1 

IDATA 

jlNITIAL 

IENDJOB 

1 



[QUTI 

IDSOO,DATABASEMGR,TEMP FILE 

IQUTI 

or A1,X1S,13R (Al is the required file code) 

• Q 
FC/Al/,BSSZ/480/,RNG/l,120/,PGSZ/192/, 

LPP/32/,INV/25/ 
I* 
1,120 



2. Subroutines called. 

.QDIR - reads directives. 

.QMEX - writes messages on the execution report. 
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.QfjIWD - moves blocks of words from one location in memory to 
another. 

.QPSP - supplies a tallied I/O list for pages to be read from 
the mass storage device (s). 

•QSFD - advances subfields of the variable field of directive 
for processing. 

.QDIRC - closes the directive file. 

.QDIRP - establishes the file code (I*) for directives. 

.QOPEN - opens the mass storage device file(s) and builds the 
tables that describe them. 

.QRTAB - verifies that the requested pages are allocated and 
builds the tables, by device, for the required page 
ranges . 

.QSICT - points indirectly to the mass storage device file 
descriptions. 

.QTABl - contains table of FROM page ranges. 

.QTAB2 - contains table of TO page ranges. 

.QTAB3 - contains the number of entries, minus one, in .QTABl/ 
:QTAB2. This count is in bits 0-17. Bits 18-35 are 
not examined. 

. QWAIT - insures that all outstanding I/O on the mass storage 
device is completed. 

.QBCD - converts binary to BCD and replaces leading zeros 
with blanks. 

.QMCH - moves blocks of characters from one location in 
memory to another. 

.QINVl - updates inventory. 

. QWRIT - performs buffered writing to the mass storage device. 

.QPHI - generates the page headers. 

. QCLOS - closes the files and generates the I/O statistic 
report. 

.QMAPl - calculates the relative sector. 
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QUTJ 



Journal Tape Dump Utility Program (QUTJ) 

QUTJ dumps selected portions of tapes in the standard I-D-S journal 
format. This includes tapes created by master mode or slave mode 
journalization, and tapes produced by either QUTU, QUTP , or QUTS . 

Directive 

One directive is recognized by the QUTJ program. 
1 8 16 



IDS 



I 

ISYSTEM 
I 



The SYSTEM directive causes only record types 3 and 4 (SLVBGN and 
SLVEND) to be printed on the report. All other record types are 
ignored. 

Printer Format 

The record types recognized by QUTJ are printed in the format shown 
be low . 



Record Type 


Column 1 


Coluirai 2 


Column 3 


Column 4 


Column 5 


Column 6 


Column 7 


Column 8 


Column 9 


Column 10 


Slave Begin 


Logical 

Record 

Number 




SLVBGN 


AA-SSSSS 


Date 


Time 


Record 
Type 


Sequence 
Word 


12 Charac- 
ter user 

ID 


Blank 


Slave End 


Logical 

Record 
Number 




SLVEND 


AA-SSSSS 


Date 


Time 


Record 
Type 




12 charac- 
ter user 
ID 


Blank 


BEFORE Image 


Logical 

Record 

Number 




BEFORE 


AA-SSSSS 


Date 


Time 


Record 
Type 


Sequence 
Word 


12 charac- 
ter user 
ID 


Page 
Number 


AFTER Image 


Logical 

Record 

Number 




AFTER 


AA-SSSSS 


Date 


Time 


Record 
Type 


Sequence 
Word 


12 charac- 
ter user 


Page 
Number 


QUTU Image 


Logical 

Record 

Number 




QUTU 


AA-SSSSS 


Date 


Time 


Record 
Type 


Sequence 
Word 


12 charac- 
ter user 
ID 


Page 
Number 
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Column Description 

Column 2 - Two asterisks appear in this column if the checksum of this 
record is in error. 

Column 5 - DATE is displayed in the form of I-IM-DD-YY . 

Column 6 - TIME is displayed as HH.TTT, hours and thousandths of hours. 

Column 8 - This word is the abort code for SLVEND records. A code of 00 
is used for end of activity and end of job. 

The SEQUENCE word is zero for all record types except BEFORE 
and AFTER. BEFORE page image records are incremented by 1, 
starting with 1 in bits 18-35. AFTER page image records are 
decremented by 1, starting with -1. 

Column 10 - The PAGE NUMBER is the first 18 bits of the first word of 
the page image followed by the line number. 
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Execution Report 

QUTJ writes the printed output on the execution report via SYSOUT. 
input tape label is the first line of the report. 



The 



Operation 

The following deck setup can be used to execute QUTJ, 
1 8 16 



I DENT 



I PROGRAM 

■LIMITS 

'tape 



$ lENDJOB 
***EOF I 



iQUTJ 

Options 

IN, Options (IN is required file code) 



Sample Output 

The following page illustrates the output format produced by QUTJ; the 
input tape was a master mode journal tape. 
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ajNUi 01 iO-Ol-66 11,092 lUS JOUHNAL TAPb REPORT 

JDS UTILITY ROUTINE - iQUTJ - VERSION 0801*8, 



3 


SLVBGN 


,,-TST03 


10-01=*8 




i037 


030 





IDSFuwifiYQUAD 






4 


BErORE 


1-TST03 


10-01-68 




,037 


050 


1 


JDSF3URYQUAU 


22 





5 


BEFORE 


L-TST03 


10-01-66 




,037 


050 


2 


IDSFOURYOUAD 


382 





6 


BEFORE 


L-Tst03 


lC-Ol-68 




|03/ 


0!>0 


3 


IDSFDURYQUAO 


20 





7 


BEFORE 


1-TST03 


lC-Ol-68 




,037 


050 


4 


IDSFOURYOUAD 


380 





e 


BEFORE 


L-TSt03 


10-01-68 




,037 


050 


5 


IDSFOURYOUAD 


112 





9 


BEFORE 3 


L-Tst03 


lC-01-68 




,037 


050 


6 


IDSFOURYOUAD 


472 





10 


BEFORE 3 


L-Tst03 


10-01-68 




.037 


050 


7 


IDSFOURYOUAD 


55 





11 


BEFORE J 


L-TST03 


lC-01-66 




,037 


050 


6 


lOSf OURYOUAD 


415 





12 


BEFORE 


l-TSt03 


lC-01-68 




,037 


050 


9 


IDSFOURYOUAD 


65 





13 


BEFORE 3 


L-TSt03 


10-01-68 3 




,037 


050 


10 


IDSFOURYOUAD 


425 





14 


BEFORE 


L-TST03 


lC-01-68 




,037 


050 


11 


IDSFOURYOUAD 


33 





15 


BEFORE : 


1-TST03 


10-01-68 




037 


050 


12 


IDSFOURYOUAD 


399 





16 


BEFORE 3 


L-Tst03 


10-01-68 3 




,037 


050 


13 


IDSFOURYOUAD 


86 





17 


BEFORE 3 


L-TSt03 


10-01-68 3 




,037 


050 


14 


IDSFOURYOUAD 


446 





16 


BEFORE 3 


L-TSt03 


10-01-68 1 




037 


050 


15 


IDSFOURYOUAD 


115 





19 


BEFORE 3 


1-TST03 


lC-01-68 1 




037 


050 


16 


IDSFOURYOUAD 


475 





20 


AFTER 3 


1-Tst03 


10-01-68 3 




037 


060 


262142 


IDSFOURYOUAD 


22 





21 


BEFORE i 


1-TST03 


10-01.68 3 




037 


050 


17 


IDSFOURYOUAD 


70 





22 


AFTER J 


L-Tst03 


10-01-68 ! 




037 


060 


?62l41 


IDSFOURYOUAD 


382 


3 


23 


BEFORE i 


L-TST03 


13-01-68 3 




037 


050 


18 


IDSFOURYOUAD 


430 


9 


24 


AFTER 3 


l-TSt03 


to-oi-6e 3 




037 


060 


262140 


IDSFOURYOUAD 


20 





25 


BEFORE 3 


L-Tst03 


10-01-68 3 




037 


050 


19 


IDSFOURYOUAD 


66 





26 


AFTER i 


L-TSt03 


10-01-68 3 




037 


060 


262139 


IDSFOURYOUAD 


360 





27 


BEFORE 3 


L-TSt03 


10-01-68 3 




037 


050 


20 


IDSFOURYOUAD 


428 





28 


AFTER 3 


L-TSt03 


10-01-68 3 




037 


060 


262138 


IDSFOURYOUAD 


112 





29 


BEFORE ] 


L-TSt03 


10-01-68 3 




037 


050 


21 


IDSFOURYOUAD 


40 





30 


AfTER i 


.-Tst03 


10-01-68 j 




037 


060 


262137 


IDSFOURYOUAD 


472 





31 


BEFORE 3 


l-Tsto3 


10-01-68 ] 




037 


050 


22 


lOSf OURYOUAD 


400 





32 


AFTER 3 


L-TST03 


lC-01-68 3 




037 


060 


?62l36 


IDSFOURYOUAD 


55 





33 


BEFORE 3 


l-TSt03 


10-01-68 ! 




037 


050 


23 


IDSFOURYOUAD 


16 


3 


34 


AFTER 3 


L-TSt03 


lC-01-*6 3 




037 


060 


262155 


IDSFOURYOUAD 


415 





35 


BEFORE 3 


1-Tst03 


10-01-*8 3 




037 


050 


24 


IDSFOURYOUAD 


376 





36 


AFTER 3 


L-TSto3 


lC-0l-*8 3 




037 


060 


262i34 


IDSFOURYOUAD 


65 





37 


BEFORE 3 


L-Tsto3 


lC-0t-*8 3 




037 


050 


25 


IDSFOURYOUAD 


111 


g 


36 


AFTER 3 


.-TSt03 


lC-01-68 J 




037 


060 


?62i33 


IDSFOURYOUAD 


425 





39 


BEFORE 3 


L-TST03 


10-01-68 J 




037 


05o 


26 


IDSFOURYOUAD 


471 





*0 


AFTER 3 


.-Tsto3 


10-01-68 3 




037 


06(3 


262i32 


IDSFOURYOUAD 


33 





*A 


BEFORE i 


.-TST03 


10-01-68 j 




037 


05o 


27 


IDSFOURYOUAD 


39^ 





42 


AFTER 3 


k-TST03 


10-01-66 3 




037 


060 


262131 


IDSFOURYOUAD 





43 


BEFORE I 


,-TSTo3 


lO-01-*8 3 




037 


050 


26 


IDSFOURYOUAD 


361 


3 


44 


AFTER 3 


.-TSto3 


10-01-68 3 




037 


060 


?62i30 


IDSFOURYOUAD 


86 





45 


BEFORE 3 


.-TSto3 


10-01-68 J 




037 


050 


29 


IDSFOURYOUAD 


81 





46 


SLVBQN 3 


.-TSt3C 


10-01-68 J 




038 


030 





IDSFOURYOUAD 






47 


AFTER 3 


L-TST03 


10-01-68 3 




037 


060 


262129 


lOSFJUHYQUAD 


446 


3 


48 


BEFORE 3 


L-TST03 


lC-Ol-68 3 




037 


050 


30 


IDSFOURYOUAD 


441 





49 


BEFORE ] 


k-TST3C 


10-01-66 1 




038 


050 


1 


IDSFOURYOUAD 


1*2 





50 


AFTER 3 


.-TST03 


10-01-68 1 




037 


060 


262128 


IDSFOURYOUAD 


115 





51 


BEFORE 3 


-TSto3 


10-01-68 I 




037 


050 


31 


IDSFOURYOUAD 


22 





52 


BEFORE i 


-Tst3C 


10-01-68 i 


■ 1 


038 


05o 


2 


IDSFOURYOUAD 


262 
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QUTL 



Data Base Load/Print Utility Routine (QUTL) 

QUTL loads and/or prints all or selected I-D-S pages from an input file. 
The input file may be: 

• Dump File created by QUTD 

• Selected File created by QUTS 

• System Statistical Collection File or User Journal File (JX) 

DIRECTIVES 

The QUTL utility is controlled through the following directive: 
1 8 16 



IDS 



■OPTION 
ETC 
ETC 



Function/Input Descriptor/, 
Descriptor options/, 
PRINT OPTIONS/ 



Directive fields being in column 16, they are terminated by a slash (/) 
and are separated by commas. One or more ETC cards may be used to 
continue the fields. A directive card to be continued must end with a 
complete field, followed by a comma. 



Operation 



The operation of the utility varies depending upon the type of input 
file. The utility is written in a modular (overlay) manner such that 
only the coding needed to accomplish the desired function is engaged. 

There are three INPUT DESCRIPTOR options recognized by the utility: 

DTAPE 
STAPE 
JTAPE 

The directive options applicable for each type of INPUT DESCRIPTOR and 
resulting operation are described as though three unique utilities 
actually exist. 

The Printer Format and Tape Formats are common to the three modes of 
operation. 



Rev. August 1971 
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DTAPE 



DTAPE - Input Descriptor 



contains data produced by the I-D-S utility QUTD. 



f 1 1 e^ 



DIRECTIVE OPTIONS 



FUNCTION 



LOAD 



Causes specified pages to be written on the mass storage 
device. 



PRINT 



LPRINT 
PLOAD 



EOR 
RNG/P1,P2/ 



Causes specified pages to be written in print format and 
directed to SYSOUT via file code P*. 

These options (either form is acceptable) cause the 
specified pages to be written on the mass storage device 
and to be sent to SYSOUT in print format via file code P*. 
Either directive is a combination of the PRINT and LOAD 
functions. 

Forces a unit switch on the input magnetic tape file. 

Specifies the page range to be reloaded and/or printed. If 
no range is present the entire range of all subfiles 
allocated is assumed. The argument P2 must be greater than 
or equal to Pi. 



PRINT OPTIONS 

EMPTY Prints non-empty pages and the page header for each empty 
page rather than indicating a succession of empty pages 
only by a first page entry and last page entry. 

TYPES/A,B,C, . ./ Prints only the record types specified by A,B,C,...(to 
a maximum of 10 types) . 



DELETE 



Produces a file containing reference code, size and record 
type of all records logically but not physically deleted 
from the file. The required file code is DE. 
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Directive Examples 



16 



IDS (OPTION IDTAPE/,LOAD/ 

I I 

This requests reloading of all pages for all files allocated 
activity. 



to the 



8 



16 



IDS (OPTION iDTAPE/,PLOAD/ 
I I 

This requests reloading of all pages for all files allocated to the 
activity and printing of all nonempty pages with all empty pages being 
indicated with a first page and last page entry. 



8 



IDS 



16 



OPTION JDTAPE/,PLOAD/, EMPTY/, 
ETC ITYPES/IOO, 200/, RNG/18500, 25000/, 
ETC IDELETE/ 
I 



This requests reloading of all pages for the specified range, printing 
of all page headers and any records of the specified types. A file of 
all deleted records will also be produced. 



Execution Report 



An execution report is produced as a part of the output. It describes in 
chronological order, the functions performed as specified in the 
directive. In addition, error conditions are included to advise the user 
of exception conditions . 

The input and output files are double buffered to obtain maximum 
throughput. The input file must contain consecutive pages for the files 
allocated or the PAGE-RANGE specified on the directive card. If 
nonconsecutive pages are encountered during execution, and error comment 
is written on the execution report and the program is aborted with a D2 
reason code. 

Inventory records will be created for the file or PAGE-RANGE re-loaded 
if applicable. 

The minimum core requirement for this activity is 16K. 
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Operation 



The fulluwliiy dtii-k SetUf Can jj€ 
library. 

1. Example for temporary files, 



16 



$ 


I DENT 


$ 


PROGRAM 


$ 


'LIMITS 


$ 


'mass 


$ 


'tape 


$ 


Itape 


$ 


•data 


IDS 


1 create 


$ 


Idata 


IDS 


lOPTION 


$ 


1 END JOB 



I (options) 

IQUTL 

I (options) (minimum 16K) 

|A1,X1R,15R 

|IN,X2S, ,1234, , DUMP-FILE (Required File code) 

|DE,X3S, , , ,DELETE-FILE (Required File code) 

|.Q 
|FC/Al/,BSSZ/480/,RNG/l,120/ 

|I* 

|DTAPE/ , PLOAD/ , RNG/1 ,12 0/, DELETE/ 



This deck setup will result in the following: 

a. Pages 1 through 120 will be written to the mass storage device. 

b. All non-empty pages will be printed on P* and all empty pages 
will be indicated with a beginning and ending page number. 

c. All records logically but not physically deleted from the data 
base will be written to tape (file code DE) and flagged on the 
printed report. 

2. Example for permanent files: 



16 



$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
IDS 



I DENT 

PROGRAM 

LIMITS 



jUSERID 

JPRMFL 

JPRMFL 

iPRMFL 

IPRMFL 

ITAPE 

IDATA 

lOPTION 



I (options) 

iQUTL 



(options) 

I DSFOURYQUAD$DBASE 

TF,R/W,R,IDSFOURYQUAD$DBASE/QUAD01 
TG,R/W,R,IDSFOURYQUAD$DBASE/QUAD02 
TH,R/Q,R,IDSFOURYQUAD$DBASE/QUAD03 
|TI , R/Q , R, IDSFOURYQUAD$DBASE/QUAD04 
|IN, X2S,, 1234, , DUMP-TAPE (Required File code) 

II* 

IDTAPE/, PLOAD/, EMPTY/, RNG/1 2 1,240/ 
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This deck setup will result in the following: 

a. Pages 121 through 240 will be written on the mass storage 
device. 

b. All non-empty pages and page headers for all empty pages will 
be printed on P*. 
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STAPE 



STAPE - Input Descriptor 



The use of STAPE as the Input Descriptor indicates that the 
contains data as produced by the I-D-S utility QUTS. 



input file 



Input File 



The input file is standard system formats with the exception of block 
size, which is 1602 words. The data on the file must have been written 
as output by the I-D-S utility QUTS; therefore it must consist of either 
the first BEFORE or last AFTER for each page supplied as input and only 
one image for each page will be present. 



DIRECTIVE OPTIONS 
FUNCTION 



LOAD 



PRINT 



Causes specified pages to be written on the mass 
storage device. 

Causes specified pages to be written in print format 

and directed to SYSOUT via file code P*. 



LPRINT 
PLOAD 



These options (either form is acceptable) cause 
specified pages to be written on the mass storage 
device and to be sent to SYSOUT in print format via 
file code P*. Either directive is a combination of 
the PRINT and LOAD functions. 



EOR 



Forces a unit switch 
file. 



on the input magnetic tape 



DESCRIPTOR OPTIONS 



RNG/P1,P2/ 



Specifies the page range to be reloaded and/or 
printed. If no range is present, the entire range of 
all subfiles allocated is assumed. The argument P2 
must be greater than or equal to Pi. 



Rev. August 1971 



204 



PRINT OPTIONS 

TYPES/A, B,C, / Prints only the record types specifies by A,B,C,... 

(to a maxiimim of 10 types) . 



DELETE 



Produces a file containing reference code, size and 
record type of all records logically but not 
physically deleted from the file. The required file 
code is DE. 



DIRECTIVE EXAMPLES 



8 16 

1 



I 
IDS JOPTION ]STAPE/,L0AD/ 

I I 

This requests reloading of all pages found on the input tape for all 
files allocated. 

18 16 



i j 

IDS [option |STAPE/,PLOAD/,RNG/27500,3 5000/ 
I I 

This requests reloading and printing of all pages found for the 
specified range. 



Execution 

An execution report is produced as a part of the output. It describes in 
chronological order, the functions performed as specified in the 
directive. In addition error messages are included to advise the user of 
exception conditions. 

Since pages are non-consecutive on this type load and each page must be 
processed based on the page number found in the record, the input is 
double buffered and the output is accomplished from the input buffer. 

Minimum core requirement for this type load is 14K. 

Inventory records will be updated for each page reloaded if applicable. 
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Operation 

The following deck setup can be used to execute QUTL from the software 
library . 

1. Example for temporary files. 
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$ 

$ 

$ 

$ 

IDS 

$ 

IDS 

$ 



IDENT 

PROGRAM 

LIMITS 

MASS 

TAPE 

DATA 

CREATE 

DATA 

OPTION 

ENDJOB 



(options) 
iQUTL 

(options) 

|Al,XlR,15R (required File code) 
IN, X2S, ,1234 ,, DUMP-FILE (Required File code) 

• Q 

FC/Al/,BSSZ/4 80/,RNG/l,120/ 

I* 

ST APE/, LOAD/ 



This causes reloading all pages found on the input tape for all files 
allocated. 



2. Example for permanent files: 
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$ 


IDENT 


$ 


PROGRAIvl 


$ 


[limits 


$ 


lUSERID 


$ 


IPRMFL 


$ 


IPRMFL 


$ 


IPRMFL 


$ 


IPRMFL 


$ 


Itape 


$ 


Idata 


IDS 


1 OPT I ON 


$ 


1 ENDJOB 



(options) 
QUTL 
(options) (minimum 14K) 

idsfouryquad$dbase 
tf,r/w,r,idsfouryquad$dbase/quadoi 

TG,R/W,R,IDSFOURYQUAD$DBASE/QUAD02 

TH , R/Q , R, IDSFOURYQUAD$DBASE/QUADO 3 

TI , R/W , R, IDSF0URYQUAD$ DBASE/QUADO 4 

IN,X2S,,1234, , SELECT-FILE 

I* 

STAPE/,PLOAD/,RNG/100,200/ 



This requests reloading and printing of all pages found 
specified range. 



for the 
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JTAPE 



JTAPE - Input Descriptor 



The use of JTAPE as the Input Descriptor indicates that the input file 
contains data of the System Statistical Collection Tape or a User 
Journal File (JX 



Input File 



The input file may be one or more reels of the master mode System 
Statistical Collection tape or User Journal File. The file must be in 
system standard format with the exception of block size, which is 160 2 
words . 



DIRECTIVE OPTIONS 
FUNCTION 



LOAD 



Causes specified pages to be written 
storage device. 



on the mass 



PRINT 



Causes specified pages to be written in print format 
and directed to SYSOUT via file code P*. 



LPRINT 
PLOAD 



These options (either form is acceptable) cause 
specified pages to be written on the mass storage 
device and to be sent to SYSOUT in print format via 
file code P* . Either directive is a combination of 
the PRINT and LOAD functions. 



EOR 



Forces a unit switch on the input magnetic tape 
file. 



NORWD 



Suppresses rewinding of the input tape at the end of 
each directive. 
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DESCRIPTOR OPTIONS 

RNG/P1,P2/ Specifies the page range to be loaded and/or printed 

If no range is present, the entire range of all 
subfiles allocated is assumed. The argument P2 must 
be greater than or equal to Pi. 

SNUMB/XXXX}C/,ACT/A1,A2/ This selects page images for the specified 

SNUMB starting with activity Al through 
activity A2 . If only activity Al is specified, 
that is the only activity to be selected. If 
no activity is specified, all page images for 
the SNUMB are looked at. 

FILE/FILENAME/ This selects page images associated with the 

specified filename. If this option is used, it must 
be the only directive to be processed. 

PAGE/1,2,3.../ This option provides selection of specific pages. 

When this option is used, a FILE/FILENAME/ must be 
specified. A maximum of 10 pages may be specified on 
one directive. 

DATE/YYMMDD/ This option, in conjunction with FILENAME or SNUMB, 

accomplishes selection of records with a date equal 
to or greater than the one specif ed. 

DATE/YYMMDD/, TIME/HHTTT/ This provides selection of records with a date 

and time equal to or greater than that 
specified. 

AFTER Specifies either BEFORE or AFTER images are to be 

BEFORE loaded. If neither option is specif ed, BEFORE is 

assumed. 

PRINT OPTIONS 

TYPES/A, B, C, .. ./ Prints only the record types specified by A,B,C,... 

(to a maximum of 10 types) . 

DELETE Produces a file containing reference code, size and 

record type of all records logically but not 

physically deleted from the file. The required file 
code is DE. 
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DIRECTIVE EXAMPLES 



16 



IDS (OPTION |JTAPE/,PLOAD/,SNUMB/12345/, 

lETC iACT/05/ 



This loads and prints the first BEFORE images found on the journal tape 
for SNUMB 12345, activity 5. All nonempty pages and page headers for all 
empty pages will be printed on P*. 



16 



IDS (OPTION JTAPE/,PLOAD/,FILE/IDSFOURYQUAD/, 
lETC lDATE/700608/, TIME/13. 058/, AFTER/ 



This loads all AFTER page images found on the journal tape for SNUMB 
12345, activity 5. All nonempty pages and page headers for all empty 
pages will be printed on P*. 
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IDS jOPTION JJTAPE/,PL0AD/,FILE/IDSF0URYQUAD/, 
|ETC lDATE/700608/, TIME/13. 058/, AFTER/ 



This loads all AFTER page images found on the journal tape tape for file 
IDSFOURYQUAD with a date and time equal to or greater than the one 
specified. All nonempty pages will be printed and all empty pages will 
be indicated. 



Execution 



An execution report is produced as part of the user output. It 
describes, in chronological order, the functions performed as specified 
in the directives. In addition, error conditions are included to advise 
the user of execution conditions. 



Considerations 



This type load utilizes a tape which will probably contain multiple 
before and after images for each page; therefore, when loading before 
images a control must be maintained to ensure that only the first before 
image of each page is written to the data base. This is accomplished 
through utilization of a page-flag "bit-buffer". 
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In order to allow dynamic construction of the bit-buffer at execution 
time, the amount of core required for the bit buffer is based on the 
accumulated ranges of all subfiles allocated to the job and the 
accumulated ranges specified on the directive cards. It is the user's 
responsibility to provide enough core to accommodate this requirement. 

The minimum core requirement for this version of QUTL (excluding the 
bit-buffer) is 15K. A formula for calculating the bit buffer size per 
subfile or range is described below: 

(MAX. RANGE - MIN. RANGE +1) *PAGES-PER-PAGE/3 6 

= Number of words of core required per subfile or range 

Total core required would be the sum of all subfile or range 
computations plus 15K. 

EXAMPLE 

A program aborts leaving two subfiles to be recovered. One subfile has a 
page-range of 1 - 10000 while the second subfile contains pages 10001 - 
20000 for a total of 20,000 pages. If no range is specified on the QUTL 
directives, enough core (556 words) must be allocated to construct a bit 
buffer large enough to map 2000 pages. However, suppose the 
determination can be made, based on knowledge of the aborted program, 
that only pages 9000 - 12000 were affected, this range may then be 
specified on the directive and only enough core (84 words) to map 3000 
pages would be required. 

Multiple directives may be processed with one execution of QUTL; 
however, they will be processed in the order in which they appear in the 
job stream. Consider the following example: 

18 16 



1 I 

IDS JOPTION JJTAPE/, LOAD/, SNUMB/12345/, ACT/2/ 

IDS lOPTION 'jTAPE/, LOAD/, SNUMB/23456/, ACT/2, 5/ 

I I 

All before images for SNUMB/12345/, ACT/2/ will be looked at on the first 
pass of the accounting tape. The bit buffer will be checked to ensure 

only the first before image of each page is written to the data base. 
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The Journal tape will be rewound and the second directive, SNUMB/234 56/ 
activities two through five will be processed. The page flag bits set by 
the first directive will be checked while processing the second 
directive, so that should each job have changes the same pages in the 
data base, only the first before image written by the first directive is 
restored. At completion of the QUTL activity, the data base would be 
restored to a point prior to any changes made by either job. 

The user may suppress rewinding of the accounting tape between 
directives by specifying NORWD on the directive cards. This option 
should be used when the jobs to be recovered were run in sequence rather 
than concurrently. 



Operation 



The following deck setup can be used to execute QUTL from the software 
library : 



Example for permanent files: 
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$ 


llDENT 


$ 


[program 


$ 


LIMITS 


$ 


|USERID 


$ 
$ 
$ 
$ 

IDS 


IPRMFL 
IPRMFL 

Itape 
Idata 

loPTION 


IDS 


[option 


$ 


endjob 



(options) 
QUTL 
(options) (minimum 15K + bit buffer) 

idsfouryquad$dbase 

TF , R/W , r, idsfouryquad$dbase/quadoi 

'tg,recovery/r/w,r,idsfouryquad$dbase/quado2 

in, X2S,, 123 4, , journal-tape (Required File Code) 

I* 

I JTAPE/ , load/ , SNUMB/ 56789/, ACT/ 1 , 5/ , NO RWD/ 

|JTAPE/,LOAD/SNUMB/5678 90/,ACT/02/ 



This deck setup will result in the following: 



The first before image of each page associated with SNUMB 56789 
activity 1 through activity 5 found on the journal tape will be 
written to the I-D-S DATA BASE IDSFOURYQUAD. 



The NORWD directive prevents rewinding the journal 
to processing the next directive. 



tape prior 



The first before image of each page associated with SNUMB 
567890 activity 2, not reloaded when processing the first 
directive, will be reloaded on file IDSFOURYQUAD. 
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Printer Format 



The format of pages selected for printer output is shown below: 



PAGE: XXXXX XX ACTIVE PAGE SIZE: XXXX CH . 



WD: 


LN : TYPE : 




















XXX 


XX XXXX 


OCTAL 




OCTAL 




OCTAL 




OCTAL 




BCD 




























OCTAL 




OCTAL 




OCTAL 




OCTAL 




BCD 




























OCTAL 




OCTAL 




OCTAL 




OCTAL 




BCD 
























XX 


XX XXXX 


OCTAL 




OCTAL 




OCTAL 




OCTAL 




BCD 


PAGE: 
PAGE 


XXXXX XX A 
AND AT,T, IN 

XXXXX XX A 


CTIVE I 
TERVEN] 

CTIVE I 


'AGE 

:ng I 

'AGE 


SIZE: 
^AGES 

SIZE: 


XXXX CH, 
XXXX CH. 




PAGE EMPTY 
PAGE EMPTY 



Input File Format 

The data read from the input tape file consists of variable length, 
logical records. The file is in standard system format with the 
exception of block size which is 1602 words. The record format is: 

Word Contents 

Accounting Record Header. The number of data words in the record 
is specified in bits 0-17. The record type, octal 000013, is 
contained in bits 18-35. 

1 Checksum. 

2 SNUMB in bits 0-29. Ignore character (octal 17) in bits 30-35. 

3 Date as I/IMDDYY. 

4 Start time in hours and thousanths of hours as HH.TTT. 

5 Record type in bits 0-11 as 10. Bits 12-35 are presently unused 
and are zero. 

6 This word is presently unused and is zero. 

7 First six characters of user identification. 
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8 Second six characters of user identification. 
9-n Active page image. 

Delete File FORMAT 

The optional output file of records logically but not physically deleted 
from the data base is in standard system format. The record format is: 

Word Contents 

Reference code. Page number in bits 12 - 29. Line number in bits 
30 - 35. 

1 Record type. 

2 Record size in characters. 
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Journal Record Selector Utility Program (QUTP) 

QUTP selects records from an I-D-S journal tape according to 
user-supplied criteria and writes them on an output tape. 

Directives 

Two types of control cards are recognized by QUTP: SELECT and ETC. The 
first card must be a SELECT; the second is optional. 

18 16 



IDS {select |fl,f2,f3 

I ' 

where fl must be AA/SSSSS. This field specifies the Activity and 
SNUMB of the corresponding Slave Begin record which must be 
found to initiate interrogation of this criterion. The 
AA/SSSSS format must be one or two digits for the activity 
number, slash, and five digits for the SNUMB. 

f2 must be AA/SSSSS. This field specifies the Activity and 
SNUMB (which must bo the same SNUMB as in fl) of the 
corresponding Slave End record which must be found to 
terminate interrogation of this criterion. 

f3 is either B, A, or null. This field specifies the type of 

record to be selected for interrogation. If this field is 

null, B is implied. If ETC cards are present, this field is 
ignored. B stands for Before and A stands for After. 

Two SELECT card examples are: 

18 16 



IDS iSELECT ,1/53607, 1/53607, B 
IDS ISELECT 112/88802, 13/88802, A 
r I I 

The ETC card is optional. It is used to specify that only BEFORE or 
AFTER records for a given page range are to be selected for output. 
The format of this directive is: 

18 16 



IeTC |fl/f2/f3,fl/f2/f3, ...etc. 
I I 
where fl is B or A meaning BEFORE or AFTER. 

f2 is the lower limit of a page range. 

f3 is the upper limit of a page range. 

NOTE: I<f2<f3<262,143 
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Several page range specifications may be placed on one ETC card, 
but each triplet must be separated from the next one by a coitiraa. A 
slash must separate each element of a triplet. If several page 
range specifications are placed on one ETC card, the last data 
character must be followed by a blank, and the blank must appear 
prior to or in column 72. Several ETC cards may follow a SELECT 
card as long as the maximum of 8 triplets per SELECT is not 
exceeded. 



If ETC card(s) follow a SELECT, then field f3 of the SELECT card is 
ignored since this option is specific for each page range. 

Two ETC card examples are: 
8 16 



I I 

JETC jB/129/352, A/26243/53409 
lETC iA/1/100, A/10/20 

Directive Restrictions 

A maximum of 50 directives is allowed. Following each SELECT directive, 
there may be a maximum of eight page range specifications. 

Tape Format 

The input data for this program can be one or more reels of master mode 
journal tape information. The file must be in standard system format 
with the exception of block size, which is 1602 words. 
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Records are written on the output file in standard system format with 
the exception of block size. Two types of records may appear on the 
output tape: BEFORE and AFTER. Their format is: 

Word Contents 

Accounting Record Header. The number of data words in the 
record is specified in bits 0-17. The record type, octal 
000013, is contained in bits 18-35. 

1 Checksum. 

2 SNUMB in bits 0-29. Ignore character (octal 17) in bits 
30-35. 

3 Date as MMDDYY. 

4 Start time in hours and thousandths of hours as HH.TTT. 

5 Record type in bits 0-11 as 10. Bits 12-35 are presently 
unused and are zero. 

6 Lines per page for this page image (bits 1-17) . 

7 First six characters of user identification. 

8 Second six characters of user identification. 
9-n Active page image. 

Execution Report 

A detailed execution report is printed by QUTP . The report is divided 
into two parts. Part 1 is a listing of the directives and part two is 
the summary report. 

Operation 

1. Deck setup. 

The following deck setup can be used to execute QUTP. 

18 16 



$ llDENT I 

$ IpROGRAM IQUTP 

$ 'limits [Options 

$ 'tape in, Options (IN is required file 

' code for the input tape) 

$ ItapE OT, Options (OT is required file 

I I code for the output tape) 

I Directives 

$ lENDJOB i 

***E0F I i 
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QUTP performs three distinct functions to select the specified 
records. 



PROCESSING DIRECTIVES . The directives are read as data from the 
input file I*. Each card is checked for errors in both content 
and format. If errors are present, an error comment is written 
with the card image on the execution report; and a switch is 
set so that a D2 abort occurs when all directives have been 
scanned, but before processing of the input tape is initiated. 
When scanning is complete and no error has occurred, a sequence 
number is assigned to the directive and printed on the 
execution report. The criterion is then stored in memory. Since 
all criteria are resident in core, the user need not order 
them. 



RECORD INTERROGATION . As each input record is read from tape, 
its record type is examined to determine how it should be 
handled. 

The SLVBGN and SLVEND records are used to initiate and 
terminate testing on a criterion. For example, if a criterion 
specifies all BEFORE records within a specific SLVBGN-SLVEND , 
the criterion is turned on when the matching SLVBGN is 
encountered to interrogate BEFORE records and output those that 
match. Correspondingly, the matching SLVEND turns off the 
criterion. This technique allows inactive criteria to be 
quickly recognized and bypassed. 

The BEFORE and AFTER records are matched against specific 
criteria. If the tests are successful, the records are written. 

SUMMARY REPORT . After all criteria are satisfied or an 
end-of-file is reached on the input file, a summary report is 
produced on the execution report. Specific criteria of each 
directive and the number of output records for the directive 

are shown. 
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Execution Information Report Program (QUTR) 

sorts the records, and produces an execution information report. 

Input Tape Format 

The input file is standard system format except for a maximum block size 
of 1602 words. 



Operation 



Subroutine .QSTB. 

For each SNUMB-activity that engages subroutine .QSTB, type B 
statistics are collected on the I-D-S journal file as a type 09 
record. These are the records used as input by QUTR. Thus, to 
provide this input, the following loader control card must be 
included in the job stack for the activity: 



16 



USE 



I 

I. QSTB 
I 



Type B information is then accumulated by .QSTB for each 
primary entry subroutine (that is, each subroutine called by 
the object program) . 
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Deck Setup. 

The following deck setup shows the appropriate control cards 
for (1) collecting type B statistics on the journal file and 
(2) executing QUTR. 



8 



16 



(D 
CD 


$ 
$ 
$ 
$ 


llDENT 
lUSERID 

'use 
'object 


— 1 ~ 

1 

I.QSTB 
1 


CD 




1 • 


1 
1 
1 


® 


$ 
$ 
$ 
$ 


pKEND 
EXECUTE 
|PRMFL 
|TAPE 


1 

JX,X1S, ,, ,I-D-S JOURI 


(D 




1 


1 

1 
1 


® 


$ 

$ 

$ 

$ 

$ 

$ 
*** 


IPROGRAM 
SYSOUT 

'tape 
Itape 
Intape 

IENDJOB 

eoe; 


1 

Iqutr 
pi 

|A1,X1R 

B1,X2R, ,99999 
|S1,T,2 

1 


Notes : 









(i) Beginning of activity. 

(2) Provides for collecting type 
journal records. 



B information in type 



09 



@ Object deck. 

(D User-created journal file. 

(5) Other user files (and end of activity) . 

© Beginning of second activity (for producing a type B 
statistics report) . 

(2) PI is required output file code. 

(§) Al is required input journal tape file code. (Note that 
this is the journal file created in first activity.) 

Q) Bl is required file code for sort work file (scratch tape) . 

(19 SI is required file code for the first of two collation 
tapes needed by GE-600 Line Sort/IIerge. 
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Sample Output 

A sample output for QUTR is shown on the following page. The circled 
caliouts are keyed to the following notes: 

(T) Alter number (from GMAP codes) of the call to the subroutine 

(T) Function (similar to I-D-S statement) 

CsS Record type 

(7) Record type of chain master followed by record type of a detail 

(T) Number of times the call was executed 

(e) Number of times the subroutine was executed without requiring 
I/O 

(y^ Total number of reads for execution of the subroutine 

(^ Total number of writes for execution of the subroutine 



ALTER FUNCTION 



135 
166 
169 
179 
184 
215 
217 
282 
291 
300 
309 
410 

o 



STORE RECORD TYPE 990 
RETRIEVE RECORD TYPE 990 
RETRIEVE NEXT OP CHAIN 990 
DELETE RECORD TYPE 4 
RETRIEVE NEXT OF CHAIN 990 
RETRIEVE DIRECT 
RETRIEVE NEXT OF CHAIN , 1000 
STORE RECORD TYPE 
STORE RECORD TYPE 
STORE RECORD TYPE 
STORE RECORD TYPE 



50 



STORE 

V 



RECORD TYPE 



2 
3 

4 
50 



:© 



,LS 


ZERO I/O 


1 





1 


1 


21 


3 


20 


2 


20 


19 


19 





19 


19 


5 





5 





5 


1 


5 





20 


20 



READS 

1 


17 



19 

6 
6 
4 
6 




© 











WRITES 





IB 

18 

6 

19 



4 

5 

4 

5 



8 
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Selected Record Sort Utility Program (QUTS) 

QUTS sorts and merges records selected from an I-D-S journal tape. The 
sorted and merged records may be used to reload the user data base" when 
recovery to a previous file status is desired. 

Input Tape Format 

The input file is standard system format with the exception of block 
size, which is 1602 words. The data on the input file must have been 
written as output by the I-D-S Journal Record Selector (QUTP) • 
therefore, it must consist of BEFORE and AFTER record types only. 

Output Tape Format 

The output files are standard system format with the exception of block 
size, which is 1602 words. The data on the output files consists of the 
first BEFORE or last AFTER record for each page supplied as input. 

Execution Report 

QUTS produces an execution report as part of the user output. This 
report describes in chronological order the functions performed during 
the execution. In addition, error messages are included to advise the 
user of exception conditions. 



Operation 

1. Deck setup. 



The following deck setup describes 
cards for executing QUTS using tapes, 
used instead of tapes. 



the appropriate control 
Disc sort may also be 



8 



16 



$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 



"EOF 



IIDENT 
'PROGRAM 

'limits 
'tape 

TAPE 
I TAPE 
jNTAPE 
jENDJOB 



iQUTS 
J10,24K 
|IN, Options 
lOT, Options 
jOU, Options 
JSI, Options, 3 
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A limit card is required. The minimum is 19K, however for sort 
to run with greater efficiency a limit of at least 24K is 
suggested. 

IN is the required input file code. 

OT is the required file code for the first output file. 

OU is the required file code for the second output file. (This 
file need not be present if the input to QUTS consists only of 
records from a single file; that is, one file name.) 

Si is the required file code for the first of three collation 
tapes required by GE-600 Line Sort/Merge, A minimum of three 
collation tapes is required. 

2. QUTS consists of input coding and output coding elements 
coupled to the standard GE-60 Line Sort/Merge. The individual 
functions performed are described below. 

INPUT CODING. The input coding element reads and preprocesses all input 
records from the input file: 

A sequence number is placed in bits 0-17 of the seventh word of all 
BEFORE and AFTER records. For each BEFORE record, the sequence 
number is ascending and ranges in value from 1 to 777777(8), For 
each AFTER record, the sequence number is descending and ranges in 
value from 777777(8) to 1. This sequence number preserves the 
chronological order of the input records in cases where start times 
may be identical for two different activities. 

Each input record is tested to ensure that only record types 05 and 
06 comprise the input. Invalid records are dumped in octal format 
on the execution report accompanied by an appropriate error 
comment. An indicator is set when invalid records are encountered 
so that the program terminates with a D2 code after all input 
records are processed. 

SORT CODING . The standard GE-600 Line Sort/Merge is used to arrange 
input records in the desired order for output. The fields used for 
sorting and their sequence are: 

Sequence Field Size Field Description 

1st (major key) 2 words File-name 

2nd 18 bits Page number 

3rd 10 bits Page 

4th 2 characters Record type 

5th 1 word Sequence number 

6th 24 bits CALC chain next 
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OUTPUT CODING . Two files are available for output in this coding 

element. A control break on file-name results in closing the first 

output file and opening the second output file. The specific functions 
performed in the output coding element are: 

a. The sequence number in bits 0-17 of the sixth word is set to 
zero. 

b. The page number of the current record is compared to the page 
number of the previous record and, if they are the same, the 
current record is not written to the output file. 
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QUTT 



QUIT Not Available 



gUTT Tape conversion Utility program is no longer avaiiat>le. 
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QUTU 



File Utility Program (QUTU) 

QUTU performs the following I-D-S utility functions, depending upon the 
directives chosen: 

• File initialize (INIT directive) : establishes page headers and 
initializes inventory. 

• File print/graph (PRINT directive): prints requested pages, 
record types, and inventory; graphs space and lines used for 
requested pages; and prints a record type usage report. 

• File movement (WRITE directive) : moves requested pages from one 
file to another. (This is a DUMP /LOAD facility.) 

• File reformat (WRITE directive) : changes page size and/or lines 
per page of requested pages while performing file movement to a 
tape or random file. 

Directives 

Directive fields begin in column 16 and are separated by commas. One or 
more ETC cards may be used to continue the fields if they run beyond 
column 72. Each card to be continued must end with a complete field, 
followed by a comma. A directive card followed by one ETC card is shown 
below. 



8 



16 



IDS [INIT I FC/XX/,RNG/A,B/,RNG/C,D/, 
'ETC ' RNG/E,F/,RNG/G,H/,.. . 



Formats for the program input directives are shown below, arranged by 
program function. Directive restrictions are listed at the conclusion of 
the format explanations. 

Function 1: File Initialize ( random files only ; if file is 
tape, directive is ignored) 



16 



IDS JiNIT I FC/XX/,RNG/A,B/,RNG/C,D/,. . . 

where FC/XX/ is the file to be initialized. This field must 
be present. 

For permanent random files : XX is as defined on the $PRMFL 
card. 

For temporary random files: XX is Al for the first file, A2 
for the second, etc. 
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RNG/A,B/ is a page range to be initialized. 

If no range field is present, the entire range of the file 
is initialized. A must be less than or equal to B, and B 



RNG/C,D/, if present, is a second page range to be 

initialized. A maximum of 8 ranges will be considered 
one directive. 



on 



Example for permanent files: 
1 8 16 



$ 


SNU^4B 




$ 


IDENT 




$ 


PROGRAM 


QUTU 


$ 


LIMITS 


10,24K 


$ 


USERID 


IDSFOURYQUAD $DBASE 


$ 


PRMFL 


TF , R/W , R, IDSFOURYQUAD/QUADO 1 


$ 


PRMFL 


TG,R/W,R,IDSFOURYQUAD/QUAD0 2 


IDS 


INIT 


FC/TF/,RNG/1,120/ 


IDS 


INIT 


FC/TG/,RNG/121,240/ 



Example for temporary files: 

1 8 16 



$ 


SNUMB 




$ 


IDENT 




$ 


PROGRAM 


QUTU 


$ 


LIMITS 


10,24K 


$ 


MASS 


A1,X1S,11R 


$ 


MASS 


A2,X2S,22R 


$ 


DATA 


.Q 


IDS 


CREATE 


FC/Al/,BSSZ/480/,RNG/l,120/,LPP/6 3/ 


IDS 


CREATE 


FC/A2/,BSSZ/480/,RNG/121,2 40/,LPP/32/ 


$ 


DATA 


I* 


IDS 


INIT 


FC/Al/ 


IDS 


INIT 


FC/A2/ 
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Function 2: File Print/Graph 



16 



I I 

IDS [PRINT IFC/XX/,RNG/A,B/,RNG/C,D/,.. . , 

I ' print option 

where FC/XX/ is the file to be printed; and 

RNG/A,B/ are the ranges of that file to be 
RNG/C,D/ printed. 

Example for permanent files: 



8 



16 



$ 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

IDS 

IDS 



I 

ISNUMB 
IIDENT 

iPROGRAM iQUTU 
[LIMITS "10,2 4K 



I 



I USE RID 
|PRMFL 
IPRMFL 
I DATA 
I PRINT 
IPRINT 



'lDSFOURYQUAD$DBASE 

TF , R/W , R , IDSFOURYQUAD/QUADO 1 

|TG, R/W , R, IDSFOURYQUAD/QUADO 2 

|FC/TF/ , RNG/1 , 10/ , PAGES 
IFC/TG/, EMPTY 



Example for temporary files: 



16 



$ 

$ 

$ 

$ 

$ 

$ 

$ 

IDS 

IDS 

$ 

IDS 

IDS 



I 

'SNUMB I 
|lDENT I 
IPROGRAM IQUTU 
ILIMITS 110, 2 4K 
IMASS 
I MASS 
I DATA 

'create 

j CREATE 
I DATA 
IPRINT 
IPRINT 



I 



IA1,X1R,11R 
!a2,X2R,22R 

|.Q 

|FC/Al/,BSSZ/480/,RNG/l,120/,LPP/63/ 

FC/A2/,BSSZ/480/,RNG/121,2 40/,LPP/3 2/ 

II* 

IFC/Al/ 

IFC/A2/,RNG/121, 150/, GRAPH 



The print options and their resulting actions are as follows {each 
option generates a different report code to prevent report "shuffling" 
on SYSOUT; only one option is allowed per PRINT directive but a maximum 
of 8 PRINT directives is allowed) : 



NULL 



Results in the same action as PAGES (see below) 



EMPTY 



Prints nonempty pages and prints a line for each 
empty page rather than indicating a succession of 
empty pages only by a first-page entry and a 
last-page entry. An inventory printout is 
included. 
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GRAPH 



GRAPH/N/ 



Prints a graph showing, for each page, the 
percent of space used and number of lines used in 
the page . 

Prints a graph showing, for each N pages and/or 
pagettes, the average percent of space used and 
average number of lines used per page. Note : Use 
caution in interpreting averages that include two 
different page sizes. 



INV 
PAGES 

RECORD 



TYPES/A, B,C,, 



Prints inventory only. 

Prints nonempty pages, indicates empty pages, and 
prints inventory. 

Prints a report of record types usage within each 
of the specified ranges. 

Because of the large buffer space required, a 
record type usage report cannot be generated for 
both the input and output file over the same 
range. If two reports are requested, the second 
request is ignored. 

. / Prints only the record types specified by A,B,C, 
etc. (to a maximum of 8 types) . 



Function 3: File Movement/Reformat 
18 16 



IDS iWRITE I FC/XX/,RNG/A,B/,RNG/C,D/,.. . , 
I I ONFC/YY/,PAGE/SZ,LPP/ 



where FC/XX/ 

P^NG/A,B/ 
RNG/C,D/ 

ONFC/YY/ 



PAGE/SZ,LPP/ 



is the file to be read ; and 
are the ranges of that file. 



is the file to be v/ritten. For temporary 
random files, YY must be Al,A2, etc. 

indicates the reformatting parameters 
for a tape output file. (This field is 
not used if the output file is random. 
Page format on random output files is 
defined by the file attributes.) 

SZ is page size in words. 
LPP is lines per page. 

If PAGE is present, both parameters must 
be present. If the output file is tape 
and the PAGE field is not present, the 
output format will be the same as the 
input format. 
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Example for permanent files: 



1 


8 


16 


$ 


JSNUMB 


1 


$ 


1 1 DENT 


1 


$ 


1 USE RID 


IlDSFOURYQUAD$ DBASE 


$ 


1 PROGRAM 


QUTU 


$ 


1 LIMITS 


10,24K 


$ 


IPRMFL 


TF,R/W,R,IDSFOURYQUAD/QUAD01 


$ 


[PRMFL 


|TG , R/W , R , I DSFOURYQUAD/QUADO 2 


$ 


TAPE 


|DT,X1S 


$ 


[data 


!l* 


IDS 


1 WRITE 


lFC/TF/,ONFC/DT/ 


IDS 


IWRITE 

1 

1 

1 

1 


JFC/TG/,ONFC/DT/ 

|And the reloading of the files from 
1 the dump tape 


§ 


[PROGRAM 


JQUTU 


$ 


ILIMITS 


;iO,24K 


$ 


IpRMFL 


|TF , R/W, R, IDSFOURYQUAD/QUADO 1 


$ 


[pRMFL 


ITG,R/W,R,IDSFOURYQUAD/QUAD0 2 


$ 


jTAPE 


'dt,xid 


$ 


IDATA 


[l* 


IDS 


1 WRITE 


|FC/DT/,ONFC/TF/ 


IDS 


IWRITE 


IFC/DT/ , ONFC/TG/ 
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Example of initialize, execute, dump, and reload for temporary files; 



8 



16 



$ 


IS NUMB 


$ 


1 1 DENT 


$ 
$ 


"PROGRAM 

•limits 


$ 


'mass 


$ 


lr4ASS 


$ 


IDATA 


IDS 


CREATE 


IDS 


CREATE 


$ 


[DATA 


IDS 


|INIT 


IDS 


|INIT 



QUTU 
10,24K 
A1,X1S,11R 
A2,X2S,22R 

.Q 

FC/Al/,BSSZ/4 80/,RNG/l,12 0/,LPP/6 3/ 

FC/A2/,BSSZ/4 80/,RNG/121,240/,LPP/32/ 

I* 

FC/Al/ 

FC/A2/ 



User's Program to be executed with its required 
control cards 




$ 

IDS 
$ 
IDS 



|DT,X6S 
I14ASS iAl,X2S,22R 

iDATA I.Q 

ICREATE IfC/A1/,BSSZ/480/,RNG/121,240/,LPP/32/ 
JDATA |l* 

WRITE FC/A1/,RNG/121,2 40/,ONFC/DT/ 



I 



And the reloading of that file from the dump tape 



$ 

$ 

$ 

$ 

$ 

IDS 

$ 

IDS 



JPROGRAM IQUTU 

iLIMITS [lO,24K 

|I4ASS Al,X2R,22R 

I TAPE |DT,X6R 

IDATA .Q 

ICREATE FC/Al/, BSSZ/4 80/, RNG/121, 240/, LPP/32/ 

IDATA jl* 

IWRITE iFC/DT/, RNG/121, 240/, ONFC/Al/ 



**NOTE: FC/Al/ is used to reference the file which in the first 
activity was created and defined as FC/A2/. 

Directive Restrictions 

Besides the restrictions included in the discussions of the various 
directives, the following apply: 

1. A maximum of 8 INIT, 8 PRINT, and 8 WRITE directives will be 
processed. 
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A maximum of 8 RNG fields will be considered on any one 
directive. 

A maximum of 8 record types will be considered on any one PRINT 
directive TYPES field. 

When a range is defined on a directive, the input file must 
contain that entire range with pages in sequence. 

If no RNG field is present on a PRINT or WRITE directive, any 
pages found on the input file that can be written to SYSOUT 
(with PRINT) or the output file (with WRITE) will be handled. 

Only SDL-1 (and later) dump format tapes will be read and 
written. 

24,000 words of core storage are necessary for program 
execution. 

Any output tape files must contain ranges which do not require 
writing on one tape, then on another and then on the first 
again. For example, the following is legal: 



Ranges 




Tapes 


1-100 1 




1 


200 - 1000 J 






1001 - 1100 "1 




2 


1700 - 1800 J 






The following is ille 


ga 


1: 


Ranges 




Tapes 


1-100 ^ 




1 


200 - 1000 1 






101 - 150 




2 



9. Since subroutine OPEN is used, all rules defined by OPEN for 
overlapping ranges, etc., hold for this utility, if a random 
file is involved. 

10. Only SDL-2 (and later) sorted journal tapes may be processed. 

Printer Format 

The printer output formats for the PRINT options are described below and 
illustrated in the "Sample Outputs" section. The circled numerals refer 
to the corresponding callouts on the sample outputs (Figures 38-41) . 
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PAGES option (see Figure 38) : 

(ij PAGE xxxxxx xxxxxx: page number in octal, then decimal. 

(2) XX LINES XX USED: total number of lines existing on this page, 
number of these used; both in decimal. 

C3J SIZE, CHAR; USED xxxx, AVAIL xxxx : number of characters used, 
number still available; both in decimal. (Sum of these is size 
in number of characters.) 

(aJ beginning line NUMBER xx: beginning line number of page. 

(5) CALC chain next xxxxxxxx: contents of the CALC chain NEXT 
^^ field (octal) . 

(6J LN XX xx: line number in octal, then in decimal. 

(7) TP xxxx: data record type in decimal. 

Csj SZ xxxx: record size in characters (decimal) . 

fs) W+xxx: number of words from beginning of the page. 
Cxx : beginning character in the word W+xxx. 

U-O) xxxxxxxxxx: octal control word, equivalent to CO'CZy' ^^^ C^y* 

Oy Contents of line defined in (^i(2)'(^' and Qo) . 

02) Octal data. 

(13) BCD data, equivalent to octal data on same printed line. 

Q.4\ Same information as in (O'CV'CO'V^ and U^o) f or next line. 

Notes : 

1. If a page is empty, only the following appears: 

PAGE xxxxxx xxxxxx PAGE EMPTY 

If two or more succeeding pages are empty, the following 
appears after the line shown above: 

THRU 

PAGE xxxxxx xxxxxx PAGE EflPTY 

2. Selecting the PAGES option also causes an inventory for the 
range (as shown for the INV option) to be printed by SYSOUT. 



224 



EMPTY option: 

The output for this option is the same as for PAGES (including an 
inventory), except that for each empty page - that is, succeeding pages 
as well as single ones - the following appears: 

PAGE xxxxxx xxxxxx PAGE EMPTY 

TYPES option: 

The output for this option is the same as for PAGES, except for the 
following: 

1. No inventory is included. 

2. Only the selected record types are printed. 

3. If a page contains records but none are of the requested types, 
the following appears : 

PAGE xxxxxx xxxxxx NO REQUESTED RECORD TYPES 
INV option (see Figure 39) : 



: Page number in octal, then decimal 



© 


PAGE 




XXXXXX xxxxxx 


© 


LINE 




XX XX 


© 


#AVAIL 




XXX 



: Line number in octal, then decimal 



: Percent of space available, shown 
in either of two ways: 

a. When the space used in the page is less than the percentage 
specified in the user's inventory update request, this 
condition is indicated by a #AVAIL of xx (where xx is 100# 
minus the inventory update request). Thus, this indication 
shows only that the inventory update request percentage has 
not been exceeded. 

b. When the space used in the page is greater than the 
percentage specified in the user's inventory update 
request, this condition is indicated by a #AVAIL xx (where 
XX is the actual percentage of total space that is still 
available) . 

Cl) THRU : Indicates that, for the pages from the 

page and line preceding this word 
through the page and line following, 
the AVAIL is the same. 
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RECORD option (see Figure 
(T) RECORD TYPE 

XXX : 
SIZE 



© 



® 



® 



© 



© 



© 



XXX 

NUMBER 
xxxx 

NUMBER DELETED 
xxxx 

LOW PAGE 
XXXX 

HIGH PAGE 

XXXX 

RANGE 
XXXX - XXXX 



40) : 



I-D-S record type. 



Record size in characters. (The size 
is flagged by an asterisk if it is 
inconsistent. ) 



Number of occurrences of record 
type within specified range. 



Number of this record type logically 
deleted within the specified range. 



Page number of first occurrence of 
record type within the specified range, 



Page number of last occurrence of 
record type within the specified range. 



Specified range for report. 



GRAPH and GRAPH/N/ options (see Figure 41) : 

MM Page numbers. 

(2 j Scale for percent of space used (0 - 100) . 

(sj Scale for number of lines used (0 - 63) . 

Caj # character, showing percent of space used. 

Cs) # character, showing number of lines used. 

(T) X character, used when # and # values coincide. 
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Notes : 

1. For GRAPH/N/, the numbers of the pages at interval N appear in 
the column at 1 . The symbols opposite these numbers represent 
averages for the percent of space used and number of lines used 
within the interval. 

2. Multiple entries for the same page number can occur if GRAPH 
(rather than GRAPH/N/) is specified when pagettes are included. 

Tape Format 

The data sent to the output tape file is written as variable length, 
logical records using the GEFRC subroutine PUT. The file is in standard 
system format with the exception of block size which is 16 02 words. The 
Page Image record format is : 

Word Contents 

Accounting Record Header. The number of data words in the 
record is specified in bits 0-17. The record type, octal 
000013, is contained in bits 18-35. 

1 Checksum. 

2 SNUMB in bits 0-29. Ignore character (octal 17) in bits 30-35. 

3 Date as I4MDDYY. 

4 Start time in hours and thousandths of hours as HH.TTT. 

5 Record type in bits 0-11 as 10. Bits 12-35 are presently unused 
and are zero. 

6 UTL in bits 0-17 to indicate utility tape rather than journal 
tape. Bits 18-35 unused. 

7 First six characters of user identification. 

8 Second six characters of user identification. 
9-n Active page image. 

Execution Report 

An execution report is produced as part of the user output. It includes 
open and close reports for any random files used (see examples 1 and 2, 
respectively, in Chapter 6, "I-D-S Execution Report") and a list of the 
directives used in order of execution. (See Figure 42 in "Sample 
Outputs" section for example of directive list.) 
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The report may also include any of the following error messages (all but 
no. 9 describe conditions causing a program abort) : 

1, FILE CODE XX RANGE REQUESTED NOT IN FILE 

A range has been defined by a directive for a random file (XX) 
which is inconsistent with the range defined in the file 
attributes. 

2. FILE CODE XX CANNOT HANDLE REDUNDANT RANGE 

Range had been defined by a directive for this file (XX) with 
an intervening range requested by another file (see "Directive 
Restrictions," no. 9). 

3.^ CANNOT HANDLE MORE THAN 8 FILES 

More than 8 directives of any one type (INIT, PRINT, WRITE) 
have been input. 

4. PREVIOUS CARD FATAL ERROR 

The preceding card contains an error — no file code, missing 
comma, or missing slash. 

5. PREVIOUS CARD TOO MANY RANGES 

More than eight ranges are defined on the preceding directive. 

6. PREVIOUS CARD TOO MANY RECORD TYPES 

More than eight record types are defined on the preceding 
directive. 

7. FILE CODE XX INPUT IS NOT SEQUENTIAL 

The file (XX) does not contain all of the pages defined by a 
following range field. 

8. FCXX ON FCXX PAGE TOO SMALL 

In reformatting, the output page size is not large enough to 
contain the lines to be written in the page. 

9. FILE CODE XX CHECKSUM ERROR 

A checksum error has been found on file XX. This is noted but 
the program does not abort. (See also "Directive 
Restrictions," no. 7.) 

10. FILE CODE XX DATA READ NOT PAGE OR PAGETTE 

The file XX does not contain page images. This is the result 
of a bad tape or bad random file. 
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Operation 

The following deck setup can be used to execute QUTU. 
1 8 16 



$ 


I DENT 




$ 


USE RID 




$ 


PROGRAM 


IQUTU 


$ 


LIMITS 


110,24000 


$ 


PRMFL 




$ 


DISC 




$ 


DRUM or 


lOptions 


$ 


MASS 




$ 


TAPE 


lOptions 




■ 

) Directives 


$ 


ENDJOB 




***EOF 







Sample Outputs 

Figures 38-42 on the following pages show the various sample outputs 
mentioned in the "Printer Format" and "Execution Report" sections. 
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O 



o 















© 



r M N r— — ■ — ^ t \ I s 

PAGE oaoa03 OOOODSi 32 LIMES 32 USED SIZE.CHIRJ USEU 141?,tViIL JOS SESINMNG LINE NUMBER 1 C*LC eMAEI>l NEXT 00000301 



\.H 01 01<TP QOOliSZ 0203. W. 



LN 02 02-TP 002*. SZ 0014,u* 37, C 3 



0100010313 000003100000 0000060A1103 020031Z4<32S 911462202631 00380000669320IDLER(IS F I 



© 



0200320016 



2S4324202020 202020202020 202020010745 031103060400 

4S010002n302 Q3n366fi00503 2445000*010' 00*500014545 

21214545000' (130000000000 0*0*2'5l»227 433121622120 

202045010607 6420202020*5 2O030*07642o 202020*520*5 

20*52020*520 20202O000OO1 25452o2oZ02n 2o202o2o2o20 

202020202020 202020202020 202020202020 204520202020 

202020202020 20202020*520 202020202020 202020202020 
202100000302 

000500050300 00n3o3 



© 



ELO 17N393640 

N],023233W05SDNO*150N01NN 
AANN053000 00*5GRSGLIAS« 
N167U N 347u N N 
N N OOIEN 

N 
N 
A0032 
050530033 



to 



© 



PAOE 



Figure 38. Sample PAGES Option Output 



LINE XAVAIL 



PAGE 



LINE KAVAIL 



PAGE 



LINE XAVAIL 



OOOOOl 


OOOOOl 


01 


01 





OOOOOl 


OOOOOl 




33 


>75 


THRU 


000003 


000003 


00 


00 


>75 


000003 


000003 


01 


01 





000003 


000003 




33 


>7S 




00000* 


000004 


01 


01 





00000* 


00000* 


41 


33 


>75 THRU 


000007 


000007 




CO 


>75 




000007 


000007 


01 


01 





000010 


oooooe 


00 


00 





000010 


oooooa 




01 


>75 


THRU 


000015 


000013 


00 


00 


>75 


000015 


000013 


01 


01 





000015 


000013 




33 


>75 


THRU 


000017 


000015 


00 


00 


>?» 


000017 


000015 


01 


01 





000017 


0O0O15 




33 


>75 




000020 


000016 


01 


01 





000021 


000017 


40 


32 


02 


000021 


000017 




33 


>75 


THRU 


000025 


OOOOZl 


00 


oo 


>7» 
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Figure 39. Sample INV Option Output 



usAs e 



REnoBD TYPE S.1 ZE NUMBER NUMBER PgLBTED LOW PASE HIGH PAS E RANGE 



139 



377 



_ii_ 



-1 -. 



0© © © 

Figure 40. Sample RECORD Option Output 



© 



-liL 



KEYI X Of SPACE USED = % 

NO. OF LINES USED = # 

AN INTERSECTION OF X AND #= X 


3 

3 


4 5 













t 2 


6 7 


8 


9 




100 


SCALE X xO 
1 2 



4 5 













> 


SCALE # lO 
♦ + + 




* 



♦ ♦ 

; «^-0" 


H0. 


* 


4- 




♦ 




5 *-fc (5 L 


— 






* 






3 # \:>'^ - 










< 


7 * 

8 * X 

9 « 

an ♦- -^ - -♦ » ..* . - 


+ 


' "■-^- - 
















+ * 


^ 


+ 


X 


4- 



}© 




SCALE » aO 



1 
__ 





tCALtJ! _«D. _ ._ 


2 3 






Figure 41. 



5 



0123 
6 
J) 



100 



Sample GRAPH Option Output 



41632 01 08-l?-69 14.778 



DtRECTIVEl 
DIRECTIVE! 
directive: 



PRINT rC/T?/,RNQ/l,SO/ 

PRINT FC/T2/,RNG/1,50/,SRAPH ^. 

PRINT FC/T2/,RNG/1, 50/, RECORD 






Figure 42. Sample QUTU Execution Report Directive List 




Directive Processor and Service Subroutine (.QDIR) 

•QDIR is a collection of ten different subroutines designed to provide 
common functions for I-D-S utility programs and subroutines. Each 
different function is defined by its SYMDEF name: 

.QDIRF 

This symbol identifies word -4 of the file control block for the 
data file. Bits 24-35 of this word contain the file code for the 
data file. If the user wishes to use his own file code, then he 
must initialize these bits prior to any call to .QDIR or .QSFD. The 
assumed directive file code is I*. 

.QDIR 



This subroutine opens the file for directives and reads the 
directive into memory. Columns 8-13 are left justified and stored 
in a cell pointed to by the user in the calling sequence. This 
value is also returned to the user in the A-register. 

As each directive is read from the data file, columns 1 through 84 
(14 words) are moved to a working buffer. The literal words 
DIRECTIVE: precede this buffer. After the move is completed, the 
.QMEX subroutine is called to print the literal and the card image 
on the execution report. A slew to the next line is given with each 
line of printing. 

In addition, a tally word is initialized to point to column 16 of 
the directive for scanning the variable field through calls to the 
.QSFD entry point. 

ETC cards are also read by this subroutine. 

The calling sequence is : 

1 8 16 



I ; 

•call I. QDIR ( arc 1) alt 1 

I I 

where: 

ARGl = The location for the contents of 

columns 8-13 of the directive. 

ALTl = The location for an end of file exit. 
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.QSFD 

This entry point is called to scan the variable field of a 
directive starting in column 16. Each call to this entry point will 
scan a maximum of 12 characters, if a delimiter is not encountered. 
The valid delimiters are comma, blank, and slash. 

The n characters are returned left justified with trailing blanks 
in the AQ-register as well as being returned to the three cells 
pointed to by the user in the calling sequence. The delimiter 
character is not returned. 

The third word pointed to by the calling sequence will contain 
three values: 

Bits 0-17: The number of characters in the subfield. 

Bits 18-23: The delimiter character found. 

Bits 24-35: The value required for a right shift of 
the AQ-register in order to right justify 
the subfield. 

It should be noted that if the value in 0-17 is zero, then the 
value in bits 24-35 will be 72. 

If more than 12 characters are present in the subfield then only 
the first 12 characters are returned to the user. The tally word 
for the scan is advanced through the next delimiter. The character 
count in bits 0-17 of the user's argument will contain the total 
number of characters in the subfield. 

The calling sequence is : 

1 8 16 



1 1 

I I 

iCALL I.QSFD(ARG1) 

where : 

ARGl = The address of three consecutive 
cells for return information. The 
first two cells will contain the 
subfield, left justified, with 
trailing blanks. The third word will 
contain the three values described 
above. 



.QDIRC 

This subroutine closes the directive file. If only one file code is 
used with .QDIR, the user need not call this subroutine. 
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.QBCD 

This subroutine converts a number from binary to BCD and replaces 

leading zeros with blanks . The number to be converted may not be 

larger than 999,999(10). If the binary number is zero, it will be 
converted to five blanks and a zero. 

The calling sequence is: 

1 8 16 



LDA 
CALL 



•binary 

j.QBCD 



(value returned in the Q-register) 



.QCLR 

This subroutine clears n words to a preset value. The argument list 
specifies the number of words to be cleared, the address of the 
area to be cleared, and a pointer to the value to be stored in the 
area. 

The calling sequence is: 

1 8 16 



iCALL \.QCI.na5,BUF, = 6H}61i6W]6]6) 

I I 



. QCSM 

This subroutine calculates the checksum of a specified number of 
words starting at a given location. If the starting location is 
given as A, then the word at A+1 will be skipped (not added into 
the checksum) . 

The calculated checksum is returned to the user in the A-register. 

The calling sequence is: 

1 8 16 



iCALL 



I.QCSM(ARG1,ARG2) 



I 



where: 



ARGl = The number of words to be 
checksummed. 

ARG2 = Address of word of data to be 

checksummed . 

Note: If the number of words to be checksummed is 0, 1, or 2, then 
the first word of data is returned to the user as the 
checksum. 



Rev. August 1971 
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.QMCH 

This subroutine moves n characters from address A, starting 
character position Al, to address B, starting character position 
Bl. 

The calling sequence is: 

1 8 16 



IcALL |.QMCH(15,BUFA,3,BFRB,0) 
I I 

Starting character positions must be from through 5, 



.QMEX 



This subroutine is called to write messages on the execution 
report. Messages must be less than or equal to 22 words in length. 
If a length of zero is given, a line of blanks will be written and 
the specified slew code will be appended to the end of the line. 
Messages greater than 22 words in length will be truncated to 22 
words. 

The calling sequence is: 

1 8 16 



I 

ICALL 
I 



I. QMEX (ARGl ,MSG ,SLEW) 



where: 



ARGl = The number of words in the message 

MSG = The address of the message 

SLEW = The number of lines to be slewed 
after printing. (See the GEFRC 
routines, lOEDIT and PRINT, for slew 
code rules . ) 

If a fourth argument is present (the value in the argument has no 
bearing) in the call, then a 'Top of Page' will be issued prior to 
printing the line requested by the caller. After the top of page is 
issued, a heading line is printed with the SNUMB, activity number 
and date followed by a double space. Then the caller's line is 
printed. If the caller wants just a top of page without any 
information printed, he should write the call as: 

1 8 16 



'CALL 



I.QMEX(0 ,0 ,SLEW,0) 



The zero word count in the above printed call will cause a line 
blanks to be printed with the slew code specified. 



of 
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.QMWD 

This subroutine moves n words from address A to address B, 
The calling sequence is : 
1 8 16 



I 



[call |.QMWD(15,BUF1,BUF2) 



.QPBK 

This subroutine is called to journalize a page. The page will be 
sent to the user's journal file if it is present. If no user's file 
is present, then the page will be journalized to the I-D-S system 
journal. 

The calling sequence is : 

1 8 16 



jCALL 
I 



QPBK{FCB,PTR) 



where : 



FGB = The LOCSYM of the file control 
for the journal file. 



block 



PTR = The address of a word which points to 
the origin of the data to be 
journalized. This origin is the 
location of the accounting header 
word which precedes the page. 

The record size for journalization is 
obtained from bits 0-17 of the 
accounting header word. 

It is the user's responsibility to checksum the record and store 
the checksum in the record prior to calling .QPBK. The file control 
block defined by the user for the journal file must specify only 
one buffer. 
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QSTC 



Trace and Print Record, Debug, and Utility Subroutine (.QSTC) 

The .QSTC subroutine generates a trace entry for all calls to I-D-S 

primary subroutines (except for .QOPEN and .QCLOSE) . In addition, each 

time a call is issued to one of the following primary subroutines, .QSTC 
prints the current record: 



.QSTOR 


.QCHN 


.QGET 


. QHE AD 


.QGETC 


.QMDFY 


.QGETD 


.QMOVE 


.QGETE 


.QDELETE 



The trace data and the record to be printed are directed to P* unless 
otherwise specified by the user. The user can direct this output to his 
own file, if desired. 

Trace data and print record entries are generated on P* or a users' file 
for all I-D-S record types, for each I-D-S primary subroutine (those 
listed above) , and for the entire page range of the I-D-S file unless 
otherwise specified by the user. The user has the option of selecting: 

1. Which primary subroutine (s) should be traced. 

2. Which record (s) should be printed. 

3. Up to five different page ranges within the I-D-S file. 

4. Which record types (up to a maximum of 50) should be traced or 
printed. 

The .QSTC subroutine is controlled through the following I-D-S 
Directive. 



8 



16 



IDS 



option idebug options, file option, 

|etc Idirective/option/, 

ETC [directive /OPTION/, 
ETC 



I 



I 



DEBUG OPTIONS 



PRTREC 



TRACE 



Note; 



This Debug Option causes the contents of the current 
record to be printed after the completion of an I-D-S 
call. Sample output is shown in Figure 43. 

This Debug Option causes a trace data line to be 
generated each time one of the previously listed I-D-S 
primary subroutines is called. Sample output is shown 
in Figure 43. 



Either PRTREC or TRACE or both PRTREC and TRACE 
specified. 



must be 



237 



FILE OPTION 



ONFC/xx/ 



The inclusion of ONFC/xx/ causes the trace data and/or 
the output generated as a result of PRTREC to be 
directed to the users' file with the file code xx. If 
ONFC/xx/ is not included, the output is directed to 

P*. 



DIRECTIVES 



• NULL 

• ALL 

• DO 

• DONTDO 



Provides 
specified. 



the 



Provides the 
specified. 



full capabilities of the option 
full capabilities of the option 



Only the specified options will be performed. 
Processing of the specified options is inhibited. 



OPTIONS 



TYPES/nnn, . . . ,nnn/ 

Depending on the specified directive, this option allows or 
inhibits the tracing and/or printing of specified record types. 
A maximum of 5 different record types can be specified. 

VERBS/xxx, . . . ,xxx/ 

Depending on the specified directive, this option allows or 
inhibits the tracing and/or printing of the current record as a 
result of a call to an I-D-S function. The allowable verbs are: 

RETRIEVE 

RETRIEVEEACH (or EACH) 

RETRIEVENEXT (or NEXT) 

RETRIEVECURRENT (or CURRENT) 

RETRIEVEDIRECT (or DIRECT) 

HEAD 

STORE 

MODIFY 

MOVE 

DELETE 

RNG/lB , IE , . . , , 5B , 5E/ 

Depending on the specified directive, this option allows or 
inhibits the tracing and/or printing of current I-D-S records 
that are within a specified page range. 1B...5B specify 
beginning page numbers; 1E...5E specify ending page numbers. A 
maximum of five different page ranges may be specified. 
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RESTRICTIONS 



For the same option, specification of a DONTDO directive 
overrides the specification of a DO directive. 

Both the DONTDO and the DO directives apply to both the TRACE 
and PRTREC functions. 

Imbedded blanks cause the processing of an OPTION card to be 
terminated. 



EXAMPLES 



8 



16 



i I 

IDS [option [trace 
I I 

This causes a trace data line to be generated on P* each time 
of the previously listed I-D-S primary subroutines is called. 



one 



8 



16 



I I 
IDS lOPTION IPRTREC,ALL 
I I 

This causes a print record entry on P* for all I-D-S record types 
and for each I-D-S primary subroutine (those previously listed) for 
the entire range of the I-D-S file. 



8 



16 



I I 

IDS [option [trace, DO/TYPES /OO 1,9 4 2/, 

lETC IDONTDO/VERBS/MOVE, STORE/ 
I I 

This causes the tracing of only the record types 001 and 942 for 

the entire range of the I-D-S file and inhibits tracing of the 

I-D-S verbs MOVE and STORE for those record types. The output is 
directed to P*. 



8 



16 



I I 

IDS [OPTION ITRACE, PRTREC, ONFC/AB/, 

ETC [dO/RNG/001,005,009,010/, 
JETC lALL/TYPES/, DO/VERBS/, 
lETC IrETRIEVE, MODIFY, DELETE/ 

This causes the tracing and printing of all record types referred 
to by the verbs RETRIEVE, MODIFY, and DELETE that are within the 
page ranges OOl to 005 and 009 to 010. The trace data and print 
record are directed to the user's file with the code AB. 
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8 



16 



$ (DATA .Q 

IDS lOPTION ^RTREC, DO/TYPES /9 41/, 

'etc po /verbs /retri eve / f 

IeTC IDO/RNG/0 16,900/ 

I I 

This example causes all record type 941 (name and address record) 

to be printed each time a RETRIEVE verb accesses a record type 941 

between pages 016 and 900. The output is directed to P*. 



DECK SETUPS 

The following deck setup may be used to execute on an I-D-S PRMFL. 
18 16 



$ 


1 i 

IIDENT IDSTST,PAT 


$ 


lUSERID ]lDSFOURYQUAD$ DATABASE 




1 OBJECT PROGRAM 


$ 


|USE j.QSTC 


$ 


(EXECUTE 1 


$ 


IPRMFL |A1,R/W,R,IDSF0URYQUAD/QUAD1 


$ 


[DATA |.Q 


IDS 


lOPTION IPRTREC, TRACE, ALL 


$ 


lEND JOB 1 


***] 


EOFI 1 



The following deck setup may be used to execute a 
temporary I-D-S file. 



program using 



Note ; 



8 



16 



[IDENT |IDSTST,PAT 



OBJECT PROGRAM 



$ 

$ 

$ 

§ 

$ 

IDS 

IDS 

$ 

***EOF 



|USE i.QSTC 

lEXECUTE 

|DISC 'a1,X1R,9R 

ITAPE Ib1,X2D 

JDATA I.Q 

■CREATE |FC/A1/,BSSZ/100/,RNG/1,100/ 

.OPTION |TRACE , ONFC/B 1/ , DONTDO/RNG/1 , 50 / 

I 



ENDJOB 



To provide the TRACE and PRTREC options the following LOADER 
control card must be included in the job stack for the activity. 



lUSE 



16 

I 
I 



QSTC 
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USER ENTRY POINT 

A users' entry point has been provided which enables the printing of the 
current I-D-S record. This entry is available to the user regardless of 
whether PRTREC or TRACE has been specified. 

1 8 16 



I ' 
I I 
|SYMREF IQSTA4 

iCALL IQSTA4(ARG) ; 
I I 

where ARG is a one word working storage location to be used as a 
line count. 

STANDARD ERROR OPTION 

If TRACE is specified by the user and an I-D-S error occurs, an error 
message is generated to the output file code specified by the user. 
Refer to Figure 43 for example. 

SUBROUTINE RESTRICTIONS 

1. If the user entry point (QSTA4) is called, all output generated 
is directed to P*. 

2. If any field within an I-D-S record exceeds 84 characters, only 
the first 84 will be printed by the PRTREC module. If a field 
is modified, the PRTREC module shows the result of the entire 
field. 

3. If the modify verb is called to modify a record with more than 
100 fields, modify flags appear on the first 100 fields 
modified; all others are not flagged. 

4. If this subroutine is used with a user program which has not 
been compiled using the .QNAMS macro, the field and record name 
areas of all output will contain unpredictable data. This 
condition will also cause faulty printing in some cases. 

To include this macro, the user must include the following code 
within the Procedure Division after the first ENTER IDS. 
statement. 

14 22 



|ENTER 

I. QNAMS 

lENTER 
I 



GMAP . 
COBOL 



If ONFC/XX/ file option is used and the specified file is not 
defined as having variable-length records or if file is not 
assigned as a printed file, the results are unpredictable. 
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6. If ONFC/XX/ file option is used and the specified file is not 
opened before the first I-D-S statement, all output is directed 
to P*. 

OUTPUT DESCRIPTION 

Figure 43 shows typical TRACE and PRTREC output. A description of all 
generated data fields follows: 

(ij Complete trace entry 

(2J Complete PRTREC entry showing fields names and field content 

(3^ TRACE heading 

(T) GMAP alter nximber within program where I-D-S call was issued 

(sj Current type of I-D-S operation 

C6j Current record type 

(jj Page and line number of current I-D-S record 

(T) PRTREC header shows type of I-D-S operation, record name, and 
^■^^ page and line number of current I-D-S record 



© 



page 

Field-name of record 



10) Field contents 



11) Control field - this field shows field usage, allowable 

contents are: 

RDM - Randomize field key 

STA - Sorted ascending field key 

STD - Sorted descending field key 

MAT - Match key or synonym field 



12; Data Type: 

AN - Alphanumeric 

A - Alpha 

N - Numeric 

SN - Signed Numeric 

SFX - Single precision, fixed point 

SFP - Single precision, floating point 

DFX - Double precision, fixed point 

DFP - Double precision, floating point 

Note: All field contents that are not BCD will be printed in 
OCTAL. 

13) I-D-S error entry with error code 



14) An (*) will appear by each field name which had its contents 
changed by the user calling the I-D-S modify routine 
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66536 05 09-29-69 



21.173 



© 



© 



***** IDS-TRACE * AI.TER NO.- 293 

(T) DATREC 

STOR DATDET 120/ 2 0992 



in,*** IDS-TRACE * ALTER NC- 



STOR DATDET 



293 
DATREC 



RTYPE- 



RTYPE- 



120/ 3^ 0992 



****-'- IDS-TRACE * ALTER NO.- 263 

XXXXX AN IDS ERROR HAS OCCURED, ERROR CODE 



STOR DATDET 



120/ 3 



***** IDS -TRACE * ALTER NO. 



GET DATKAT 



120/ 1 



***** IDS-TRACE * ALTER NO.- 



CHN DATDET 



120/ 2 



***** IDS -TRACE * ALTER NO. 



DATREC 
0992 



282 

DATREC 

0992 

BASE2 

0001 



303 

DATREC 

0992 



MDFY DATDET 



120/ 2 



319 

DATREC 

0992 



CTYPE-STOR 

MAT CALDAT 
9998 
CTYPE-STOR 

MAT CALDAT^--^ 
(lo)-^9999 \V 
CTYPE-STOR RTYPE- 

Doi "y (u) 

MAT CALDAT 
9999 
CTYPE-GET RTYPE- 

RDM XI 

0000 
YYYMON 
0001 
CTYPE-CHN RTYPE- 

MAT CALDAT 
9999 
CTYPE-MDFY RTYPE- 

MAT CALDAT 
9998 



© 









993 PG/LN= 


120/ 2 


}© 




STA ACTDAT 




CODDAT 




999999 




4 




993 PG/LN- 


120/3 






STA ACTDAT 
999999 




CODDAT "^ 
5 


}© 


993 PG/LN- 


120/ 3 






STA ACTDAT 




CODDAT 




999999 




5 




992 PG/LN- 


120/ 1 






X3 




WKGWK 




00000006 


00005 






PERMAX @L 

07 SFX 


FSTMON 
0001 




993 PG/LN- 


120/ 2 






STA ACTDAT 




CODDAT 




999999 




5 




993 PG/LN- 


120/ 2 




f 


STA ACTDAT 




CODDAT 


999999 




4 





YYY 
0068 






Figure 43. Sample .QSTC Output 
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Verify and Print Utility Subroutine (.QUTF) 

QUTF verifies the integrity of a page and formats and prints I-D-S data 
base information received from QUTU, QUTL or QUTD. 

The calling sequences are: 

18 16 



i 1 

[call .QUTF1(ARG1,ARG2) 

I I 

This entry point must be called first to initialize .QUTF. ARGl is 
the ncime of the file control block to which the dump output is 
sent. Normally, this is the file control block for SYSOUT, P*. 

ARG2 is the symbolic location of four words that are included in 
the title line of the dump output. Normally, it is name and version 
of QUTU, which produces the output from QUTD, QUTL, or QUTU. 

18 16 



I I 

ICALL j.QVFY(ARGl,ARG2,ARG3)ARG4 
I I 

This entry point is called for each page that is to be verified. 

ARGl is the location of a word which contains the 24 bit page 
reference code, right justified. 

ARG2 is the address of the first word of the page to be verified. 

ARG3 is the location of a word which specifies whether the page 
will be dumped on the printer via SYSOUT. If the word is zero, no 
printing will be performed. If the word is nonzero, the page will 
be printed. In addition, if this word is nonzero it must be 
preceded by and followed by two words of zeroes. 

ARG4 is the location of the user's alternate exit which is taken 
whenever a page cannot be verified. 

The following checks are performed to verify the integrity of a 
page : 

• The page number supplied by the caller (ARGl) equals the page 
number in the input record. 

• Every line present in the page has its line flag properly set. 

• The sum of record sizes equals the active page size. 

• Line flags are not set for lines that are not contained in the 
page. 
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If any one of these tests fails, an appropriate error message is written 

on the execution report followed by a snapshot of the page in error. The 

registers shown in the panel portion of the snapshot dump display the 
following information: 

XO The page number supplied by the caller in argument 1. 

XI The current word address within the page where processing was 
being performed when the error occurred. 

X2 The current character position in the word described by index 
register 1. 

X3 The usable page size expressed in characters. 

X4 The available space expressed in characters. 

X5 The active page size expressed in characters. 

X6 The number of characters in the page which have already been 
processed. 

X7 The number of the current line being processed. 

AR/ 

QR The current status of the available line flags, left justified. 
These flags are taken from v/orking storage and some bits may 
not be present for those lines already processed. 

As each page is verified, secondary entry points of .QUTF are called to 
format and print the page, if required. These entry points are described 
below: 

18 16 



I ! 

ICALL i.QUTF2 (ARG1,ARG2) 
I I 

This entry point is called at the beginning of each page. It supplies 
information to .QUTF concerning the page number and the active page 
size . 

ARGl is the location of the page number, in binary, right justified. 

ARG2 is the location of the active page size, in binary, right 
justified. 
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15 



,CALL 



,QUTF3(ARG1,ARG2,ARG3) 



The third entry point is called to print each line. ARGl is the location 
of the word number within the page for this line. The value is binary, 
right justified. 

ARG2 is the location of a tally word containing the address and starting 
character position of the line. 

ARG3 is the location of an indicator. If ARG3 is 0, the Page Header 
(line 0) is sent for printing. If ARG3 is ^0 and negative, a normal line 
is sent for printing. 



Printer Format 

The format of pages selected for printer output is shown below: 



PAGE: XXXXX XX 
WD : LN : TYPE : 
XXX XX XXXX 



XXX XX 



XXXX 



ACTIVE PAGE SIZE; 



XXXX CH . 



OCTAL 




OCTAL 




OCTAL 




OCTAL 




BCD 




















OCTAL 




OCTAL 




OCTAL 




OCTAL 




BCD 



OCTAL 




OCTAL 




OCTAL 




OCTAL 




BCD 




















OCTAL 




OCTAL 




OCTAL 




OCTAL 




BCD 



Execution Report 

The output produced by the .QUTF subroutine is written on the file 
provided by the user in his call to .QUTFl. The report code is 25(10). 
Output is produced by calling the PRINT and EPRINT subroutines of GEFRC. 
The GEFRC subroutine lOEDIT is used for page numbering and format 
control. 

Operation 

QUTF is used by QUTD and QUTL to print data base pages in the desired 
format. It is made available to the utility routines from the subroutine 
library through the use of the SYIIREF feature of GIIAP. QUTF is not 
freestanding and cannot be called except through the user's own program. 



Sample Output 

An I-D-S Selective 
following page. 



Tape Dump report using .QUTF is shown on the 
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lusex 1)3 


09-25-68 


12, 


i07l 


lUS btLfcCTl 




100 


31 


50 


4200620021 




i03 


35 


5: 


430062002100 




105 


36 


5 c 


44 




108 


37 


5C 


4500 




111 


38 


5C 


460062 




114 


39 


5; 


4700*200 




117 


40 


5C 


5000620021 




iZ.j 


4l 


5 c 


5i0062B02100 




122 


42 


5C 


52 




125 


43 


5C 


5300 




128 


44 


5C 


54UQ62 




131 


45 


5C 


55D06200 




134 


46 


50 


5600620021 




137 


47 


50 


570062802100 




139 


48 


5; 


60 




142 


49 


50 


6100 




145 


So 


50 


620062 




148 


51 


50 


63006200 




151 


52 


5c 


6400620021 




154 


53 


50 


65O062OO21OO 




156 


54 


50 


66 




159 


55 


50 


6700 




162 


56 


50 


700062 




165 


57 


5C 


71006200 




168 


58 


50 


7200620021 




J71 


59 


50 


730t)62B02100 




173 


6o 


5C 


74 




176 


61 


50 


7500 




179 


62 


60 


760062 




182 


63 


50 


77006200 



080168 VERSION UF ,UU1D, 



000000050003 

oooano06o7oo 

0062on2l0000 
62002l0p0000 

oozioooooooi 
2iooooo5oioi 

O000000o05o6 
000004020500 
0062002i000O 
62002lOoOOoO 
O02lOoaQO003 
210000000403 

000000040210 
000001060000 
0062oo2l0000 
620021060009 
00<!1000o00o3 
2100060c02o6 

ooooooo?iint 

O0000?0306o0 
0062oo2iOOoD 
620021060000 
002100060002 
21O0OOO0D111 
00000002020' 
000000040400 
0062og2iOOOO 
620021000008 
00210006000l 
2l00000601c3 



000100017125 
D1000l72o6 

ncoio3oioooi 

O1O402000100 

n4aooooioooi 

P2000l00nl72 

(100100017215 

0100017156 

000207030001 

O3p2o6O0OlOO 

050500010001 

nooooioooi72 

000100017155 

0100017201 

0003o7o6o00l 

040701000100 

060100010001 

n2000l000l72 

000100017170 

OiO0Jl7l04 

000301020001 

O3o403000lO0 

110700010001 

100001000171 

000100017165 

0100017103 

noo2o4iooooi 

0207H000100 
C61100010001 
040D01000171 



000l7l7' 
017227 
7145 
25 



0001717? 
017232 
7162 
31 



00017221 

017222 

7133 

41 



00017224 

017237 

7106 

30 



00017113 

017164 

7132 

27 



PISE 2 

KOSOA0000030101ZE 
LOSO*0000670101»6 

MOSOA0001310101ZI 
N0SOA0O0142O1O1*" 
OOSOAOOOKOOIOIZN 
P0S0AOO0ll2DlQl»E 
aOSOA0000550101>-l 
ROSdA000425oi012| 

-OSOA0002730101Z» 
SOSOA0003260101*« 
*OSOA0003550101ZS 
)0SaA0004300101.I 
10S0A00042801Q1Z) 
'6S0A0001600101*1 

♦OSOA0003760101*A 
/OSOa0004710101<-B 
S0SOA00O3610101Z. 
TOSOA0002620101«J 
UOSOA0002910101ZY 
V0S0A0002360101Z4 

wasOA0009l2Q101<-F 
X0SO*OO03430iOi»\ 
YOSOA0002970101Z6 
ZOSOA0001980101ZH 
•■OSOA0002270101ZV 
,OSOA0000440101Z3 

XOSOA000248oi01Z# 
■OSOA0002790101ZU 
'•OSOAOQ01690101Z« 
IOSOA0001340101ZQ 
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WOl 
1 
3 
6 
9 

12 
15 
17 
20 
23 
26 
29 
32 
34 
37 
4'0 
43 
46 



LNl 

1 
2 
3 
4 
5 
6 
7 

a 

9 

10 

11 
12 

13 
14 
15 
16 



TYPEl 

1000 000172775000 



50 
50 
5C 
50 
50 
50 
50 
5 
5C 
5G 
50 

5a 

50 
5C 
53 
50 



0100 

020062 

03006200 

0400*200Z1 

050062B02100 

06 

U700 

10U062 

11006200 

12O0820021 

13O062OO210O 

14 

1500 

160062 

17006200 

2000620021 



01720 
62C02 
C0210 
21000 
00000 
00000 
C062o 
62C02 
C0210 
21000 

coooo 

00000 

co6zn 

62002 

oozio 

21000 
00000 



0242777 

lOgOOoO 

OOoOOol 
O0002ol 
ODiOOo' 
2O0II0O 
O^IOOOO 
1 

0060001 
ooooio' 

00o04ol 
0010700 

O2i000') 
lOoOOOl 

oooooe* 

00004o5 
OD30Co5 



777777 

nio6o3 

10 4 

C50001 
OOOIOQ 
OlOOOl 

00000' 

OCllll 
C20000 
010001 
PC0130 
ClOODl 
000003 

ncn5o6 
icn7oo 

07QC01 

n 1 



777700 

OOOlOO 

010001 

000171 

017147 

72o3 

OOOOGl 

OOOlOO 

010001 

000171 

017173 

7243 

oSoooi 

OOOlOO 
OlOOOl 
000171 
017124 



DOOCOOOO 
017176 
7242 
72 



OOOl'lS^ 
Ol7l4o 
7144 
57 



0001^137 
017112 
7207 
31 



01»|O0l'-0DQ| 1 I 1 


10SOA000163 


20SOA0001640 


30SCAQ0021501 


4oSoAoooio5oio: 


5oSBAo0020'Oi01' 


60S0A00007 


7oSOA000099 


80S0A0001200 


9QSOA00015101 


(OS0A0000410l0 


#OSOA00001701D1 


• OSOA00003! 


IflSOAOBOOS* 


>osoAooooe7a 


70S0A0O045701 


0S0AO003o5ol0 



I 100000 

OlOlZ" 

101*K 

OlZ- 

IZP 

• 3 

OOlOlZF 

OIOIZ* 

lOlZM 

OIZ' 

iz, 

50101Z\ 
OlDlZI 
lOl"? 
OIZI 

IZD 



Appendix A. Reserved Words 



l-DS RESERVED WORDS 



I-D-S uses all the reserved words specified for COBOL. In addition, it 
employs the reserved words listed below. The user must avoid using words 
on both these lists for data-names. 



ABORT 

ALLOWED 

ANY 

AUTHORITY 

AUTHORITY-KEY 

BUFFER 

CALC 

CCBLOC 

CCBLOXK 

CHAIN 

CHAIN-ORDER 

CURRENT 

DEBUG 

DELETE 

DIRECT 

DIRECT- REFERENCE 

DUPLICATES 



EACH 

ERROR- REFERENCE 

FIELD 

FIRST-REFERENCE 

HEAD 

IDS 

IDS-SPECIAL-NAMES 

INTERVAL 

LAST- REFERENCE 

LINKED 

MASTER 

MATCH- KEY 

MD 

MODIFY 

NEAR 

PAGE -RANGE 

PRIOR 



PROCESS 

RANDOMIZE 

REC-FILE 

RECORD-TYPE 

REPLACE 

RETRIEVAL 

RETRIEVE 

SORTED 

STORE 

SYN 

SYNONYM 

TABLE 

TRACE 

UNIQUE 

UPDATE 

VIA 

WITHIN 

WORKING 



I-D-S GENERATED GMAP SYMBOLS 



GMAP symbols defined in the location field must not conflict with 
reserved system symbols. (See GE-600 Line Programming Reference Manual , 
CPB-1004.) Symbols in the form LLNNNN , where L is any letter and N is a 
number, must not be defined in the location field of GMAP statements. 
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Appendix B. I-D-S Error Conditions 



Two types of error conditions may occur during I-D-S program execution. 
The code, I-D-S source, and description for error conditions of both 
types are shown in the following sections. 



DATA-DEPENDENT ERROR CONDITIONS 



Testing for data-dependent error conditions must be incorporated in 
procedural logic of the user program. Codes for this type of error 
stored in the communication cell ERROR-REFERENCE for reference by 
user program. The various codes are listed in the following table, 
each code is shown the I-D-S source of the error condition and 
description as printed by the TRACE option of the USE statement, 
description will be printed if the TRACE option is selected. (See 
USE description in Chapter 3 for an example of TRACE output.) 



the 
are 
the 

With 
its 

This 
the 



The key to abbreviations in the descriptions is shown below: 



RT - record type 
REF - reference code 



MT - master record type 
DT - detail record type 
XXXX - variable inserted by TRACE 



Error Code Source 



ROl 



QASC 



R02 


QASC 


R03 


QASC 


R04 


QASC 



R05 



QGTC 



Description from Trace 

No current record reference code 
record type XXXX 

Record retrieved logically 
deleted RTXXXX REFXXXXXXXX 

Request retrieval of record 
RTXXXX got RTXXXX 

No record on chain MTXXXX-DTXXXX 
or structure error for record 
type XXXX 

Retrieve current, current equals 
zero rec-type XXXX 
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R06 
R07 
R0 8 
R09 
RIO 
Rll 
R12 
DOl 
SOI 



QGTD 
QGTD 
QMRA 



QBIC 
QSMT 

QDLT 



QMDF 

QjyiNO 
QCAL 

QTLN 
QMNO 



Retrieve direct and direct refer- 
ence equals zero 

Retrieve direct and record is 
logically deleted 

Line number not on specified page 
ref code XXXXXXXX 

Page requested is not allocated 
reference code XXXXXXXX 

Illegal delete request of RTXXXX 
want RTXXXX 

Illegal modify request of RTXXXX 
want RTXXXX 

Working storage for page range 
zero record type XXXX 

Store of unallowed duplicate 
record type XXXX 

No space available for record 
type XXXX 



ERROR CONDITIONS CAUSING ABORT 



Improper use of I-D-S functions, invalid data file definition, and 
unrecoverable hardware malfunctions cause an automatic trace and abort 
of the user program. In addition, a memory dump occurs. 

Whenever an I-D-S program aborts, the I-D-S data file is first CLOSED, 
with the appropriate pages restored to the mass storage device. 

If the trace cannot acquire a link on mass storage for an overlay, the 
following error comment may occur: 

CANNOT TRACE ERROR, INADEQUATE SPACE 

The various abort reason codes are listed in the following table. With 
each code is shown the I-D-S source of the error condition and its trace 
description. 

Note that while they are included in this table, codes 65 through 88 are 
not associated with an abort condition, but have been added solely to 
permit the printing of an appropriate error message while TRACE-ing the 
non-fatal errors discussed above. These codes may be encountered in a 
memory dximp, or among the inner workings of the I-D-S subroutines, but 
will otherwise be invisible to the user. 
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The key to abbreviations in the descriptions is shown below: 



RT - record type 
REF - reference code 
CC - coinmunication 
control 

Reason Code Source 



04 



12 



13 



14 



QAUT 



05 


QSMT 


06 


QRLN 


07 


QRLN 


08 


QRLN 


09 


QRLN 


10 


QASC 


11 


QASC 
QDLT 
QSTO 



QASC 



QGTD 
QRLN 

QHED 



MT - master record type 
DT - detail record type 
XXXX - variable inserted 
by TRACE 

Description from Trace 

Authority key does not match 
record type XXXX 

No records returned from sort 

Read error - check error refer- 
ence in CC block 

Record retrieved logically 
deleted RTXXXX REFXXXXXXXX 

No position prior pointer chain 
MTXXXX - DTXXXX 

No detail definions for this 
chain MTXXXX 

Retrieval via missing for record 
type XXXX 

Detail in too many chains record 
type XXXX or/master of too many 
chains record type XXXX 

No unique field for primary 
record - record type XXXX 

No record definition has been 
established 

Chain next equal zero chain - 
MTXXXX-DTXXXX 



I 



I 
I 
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I 
I 
I 



I 
I 
I 



15 

16 
17 
18 
19 
20 
24 
25 
26 

27 



QDLT 
QMDF 
QSTO 

QMDF 
QMOV 

QDLT 
QFWD 
QGDE 
QGDE 
QSTO 
QSTOR 



QTYP 
QRLN 



QDLT 



29 


QUDC 
QKLN 


30 


QMRA. 


31 


QSBF 

QSMT 


32 


QBIC 
QSMT 


33 


QIV3 
QIV4 
QFWD 


34 


QIOS 


35 


QSMT 
QBIC 



Processing mode not up-date 



Field of modify/move not in 
record type XXXX 

No current record of program 
on delete 

Retrieve next in chain no 
current exists MTXXXX-DTXXXX 

Invalid control definition 
record type XXXX 

Control field error, equals 
zero for record type XXXX 

No unique field on store 
for record type XXXX 

No storage chain specified 
for record type XXXX 

Record retrieved not 
specified for chain 
MTXXXX-DTXXXX 

Delete action list is 
invalid 

No position next pointer chain 
MTXXXX-DTXXXX 

Record size conflict for record 
type XXXX 

Attempt to write not update, 
reference code XXXXXXXX 

Invalid page size for reference 
code XXXXXXXX 

Page requested is not 
allocated reference code 
XXXXXXXX 

Read/write error 

No empty buffer for REND 
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36 


QRDN 


52 


QTLN 


53 


QTLN 


54 


QTLN 


55 


QTLN 


56 


QBIC 


57 


QDLN 


58 


QTLN 


59 


QIV3 


60 


QTLN 




QKLN 


61 


QOPE 


65 




66 




67 




68 




69 




70 




71 




72 




73 




74 





Attempted update while in READ 
only mode 

Record cannot be linked 
chain MTXXXX-DTXXXX 

Error trying to retrieve 
prior chain MTXXXX-DTXXXX 

Error trying to retrieve 
next chain MTXXXX-DTXXXX 

Error trying to retrieve new chain 
MTXXXX-DTXXXX 

Page read is not page requested, 
reference code XXXXXXXX 

Next of chain is equal to zero 
chain MTXXXX-DTXXXX 

Attempt to link, next equals 
zero chain MTXXXX-DTXXXX 

Inventory read not one 
requested 

Next in chain not retrievable 
chain MTXXXX-DTXXXX 

Error in file definition at 
open time 

(See Error Code "ROl") 

(See Error Code "R02") 

(See Error Code "R03") 

(See Error Code "R04") 

(See Error Code "R05") 

(See Error Code "R0 6") 

(See Error Code "R07") 

(See Error Code "R08") 

(See Error Code "R09") 

(See Error Code "RIO") 



I 
I 
I 
I 
I 
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75 
76 
80 
88 
129 



130 



QCHN 
QDBG 
QDLT 
QGET 
QGTC 
QGTD 
QGTE 
QHED 
QMDF 
QMOV 
QRLN 
QSTO 

QCHN 
QDBG 
QDLT 
QGET 
QGTC 
QGTD 
QGTE 
QHED 
QMDF 
QMOV 
QRLN 
QSTO 



(See Error Code "Rll") 
(See Error Code "R12") 
(See Error Code "DGl") 
(See Error Code "SOI") 
File unopened but access requested 



Primary subroutine entry during 
error processing 



All others 



Error code undefined 
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Appendix C. GE-600 COBOL/I-D-S/FORTRAN 

Communication and Overlaying 



This appendix explains the procedures and techniques to follow when 
overlaying a COBOL program, using the Integrated Data Store (1-D-S) 
software and mixing FORTRAN programs with COBOL or the COBOL/I-D-S 
software on a GE-600 system. 



OVERLAYING A COBOL PROGRAM 



Basis for Overlaying 

Most programs should be segmented and overlayed when they become large. 
The memory allocated to a program will vary among sites. That is, some 
sites will have a billing formula to compute the cost of a computer run. 
If a particular computer run requires, for example, more than 40k of 
memory, the user's cost will have a very drastic increase after this 
limit has been reached. 

In a multiprogramming system, the more memory required for a particular 
program decreases the effectiveness of the overall system. So, there is 
a justification for increasing the charge for a program when a set 
memory limit has been exceeded. 

Many programs can be overlayed to reduce their memory requirements. 
These programs may have sections that are utilized only once or just a 
few times. These sections definitely do not have to reside in memory for 
the entire duration of a computer run. Other sections which do not have 
direct references to one another can be swapped in and out of memory, 
also under user control. 



Segmentation 

To accomplish overlaying, the program must be divided into subroutines, 
subprograms, or segments, whichever term you wish to choose. The term 
subprogram is used in this appendix. This program, when divided, will 
consist of numerous subprograms, each compiled separately or each 
appearing to be an entity or program. 
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Thus, each subprogram will be a separate COBOL compilation, each with an 
Identification Division, Environment Division, Data Division, and 
Procedure Division. Each program will have a uniqueness to depict that 
they are subprograms. These features, imbeuu.e\a xn tue programs, are 
various transfers, entry points, exits, and common data storage areas. 



Communication Between Subprograms 

Once a subprogram exists, the means of communicating with the other 
subprograms (and also examining constant or variable data used in 
different subprograms) must be accomplished. 

First, the method of passing constant or variable information between 
the subprograms. In COBOL, use the labeled common area method. These 
areas are defined in each subprogram that use any of the constant or 
variable information. The following example v;ill show how to set up the 
labeled common areas so that the different subprograms can examine the 
same data. 

Subprogram IIAIN 

000010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. MAIN. 

00140 ENVIRONMENT DIVISION. 

000180 SPECIAL-NAMES. 

000190 BLOCK 31 IS ENTRY-REC THRU LAST-REC. 

000320 DATA DIVISION. 
000330 FILE SECTION. 

000500 WORKING-STORAGE SECTION. 

000510 01 ENTRY-REC. 

000520 02 OTHER- LEVELS SIZE IS 48 NUMERIC. 

000530 01 LAST-REC. 

000540 02 MORE-LEVELS SIZE IS 42 NUt4ERIC. 
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Subprogram NEXTPG 



000010 IDENTIFICATION DIVISION. 
000020 PROGRAM-ID. NEXTPG. 



000120 ENVIRONMENT DIVISION. 



000150 SPECIAL-NAMES. 

000160 BLOCK 31 IS REC-ENTRY THRU REC-LAST. 



000 400 DATA DIVISION. 
000410 FILE SECTION. 



000550 WORKING- STORAGE SECTION. 

000560 01 REC-ENTRY. 

000570 02 DATA-HERE SIZE IS 48 NUMERIC. 

000580 01 REC-LAST. 

000590 02 MORE-DATA SIZE IS 42 NUMERIC. 



The preceding example shows the entries necessary for communication in 
the Environment Division and Data Division of two subprograms. The 
labeled common area is the same in both since Block 31 v/as mentioned, 
and the size of the 01 records is consistent. 

At load time, one labeled common area called C31 (COBOL always prefixes 
the integer with the Character C) will be generated. The total size will 
be 90 characters. In subprogram IVIAIN, references to the common area 
(C31) will be by the name OTHER-LEVELS and MORE-LEVELS; whereas in 
subprogram NEXTPG, references to this same common area (C31) will be by 
the name DATA-HERE and MORE-DATA. 

Since subprograms MAIN and NEXTPG are compiled separately, the names can 
be the same or different. The important concepts to remember from this 
example are that only one labeled common area (C31) will be generated 
when subprogram MAIN is loaded, and any subsequent subprogram referring 
to the identical area (C31) will have its references adjusted to this 
area. 

When a COBOL program is divided into subprograms, transferring control 
during execution from one subprogram to another is done by using the 
CALL statement. If a return to the calling subprogram is desired, then 
the EXIT statement is used. 

The following example shows the basic method of using the CALL and EXIT 
statements. 
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Subprogram SNOOPY 
00001 010010 IDENTIFICATION DIVISION. 

00149 040010 PROCEDURE DIVISION. 



00191 041080 
00193 041100 



ENTER LINKAGE MODE. 
CALL CHKSEG 



Transfer is to the PROGRAM-ID whose location is the first 
executable statement in the PROCEDURE DIVISION of subprogram 
CHKSEG. 



Subprogram CHKSEG 



00001 010010 IDENTIFICATION DIVISION. 

00002 010020 PROGRAM-ID. CHKSEG. 



00092 040010 PROCEDURE DIVISION. 



00104 043120 200-CALL-CK-END. 

00105 043150 EXIT. 



When EXIT is reached, execution returns to the next 
after CALL CHKSEG in subprogram SNOOPY. 



statement 



NOTE: This example consists of excerpts taken from the program included 
with this appendix. 

Transferring control to entries other than the PROGRAM-ID is 
accomplished by defining ENTRY POINTS in the program referred to. By 
using the ENTRY POINT statement, a SYMDEF is generated making entry 
possible at that particular point from any other subprogram. 
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When ENTRY POINT is written in a subprogram to return to the calling 

subprogram, the EXIT statement with the name of this ENTRY POINT is 
written. 

The following illustrates the proper usage of the ENTRY POINT and EXIT. 



$ FORTRAN 

COMMON/C20/1TABLE(20) 



CALL 



CALL 



SNOOPY 



ENTABC 



The CALLS above are from a FORTRAN 
subprogram. They could have been from 
a COBOL subprogram which had ENTER 
LINKAGE MODE preceding each CALL. 



$ COBOL 

00001 010010 IDENTIFICATION DIVISION. 

00002 010020 PROGRAM-ID. SNOOPY. 



00150 040022 PROCEDURE DIVISION. 



00240 044014 ENTER LINKAGE MODE. 

00241 044015 ENTRY POINT ENTABC. 

00242 044016 ENTER COBOL. 



00349 045261 3 09 -PROGRAM-EXIT. 

00350 045262 EXIT ENTABC. 

00351 045263 310-SNOOPY-EXIT. 

00352 045280 EXIT PROGRAM. 



NOTE: This example consists of excerpts taken from the program included 
with this appendix. 
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Overlaying Procedure 



xiie progxciia xa nuw cnuppKu j.ricu uictny tiuopruyicuuti ; eduu uuntdxnti tne 
necessary statements to refer to other subprograms. 

To overlay, a few more statements have to be inserted into the 
subprograms. These statements are the CALL'S to load specific 
subprograms from the H* file. In an overlay job, the overlays are not 
retained in memory but are stored on a peripheral to be loaded only when 
requested by the user. (See GE-600 Line General Loader , CPB-1008 for a 
complete explanation of the general overlaying method.) 

There are two subroutines in the subroutine library (L*) to load the 
overlays. They are LINK and LLINK. When overlaying a program, the CALL 
LLINK loads the overlay and returns control to the statement following 
the CALL. The CALL LINK loads the overlay and returns control to the 
overlay. It is not possible to return to the statement following the 
CALL LINK after executing the overlay. Use the CALL LLINK so that you 
can retain control in a situation where a main subprogram will control 
transfer to an overlay brought into memory. 

The following example illustrates the procedure to follow when 
overlaying a COBOL program. In the example, the subprogram SNOOPY 
resides in memory the duration of the execution, and subprograms CHKSEG, 
SAVSEG, and LOASEG are loaded into memory by the CALL LLINK statements 
located in SNOOPY. 



262 



12345 
HA963,ERICKSON 



$ SNUMB 
$ I DENT 
$ COBOL 

00001 010010 IDENTIFICATION DIVISION. 

00002 010020 PROGRAM-ID. SNOOPY. 



00033 020010 DATA DIVISION. 



00052 020300 WORKING-STORAGE SECTION. 

00054 020310 77 SEG-1 PICTURE X(6) VALUE IS "LINKAA", 

00055 020320 77 SEG-2 PICTURE X(6) VALUE IS "LINKBB" , 

00056 020330 77 SEG-3 PICTURE X(6) VALUE IS "LINKCC", 



00149 40010 PROCEDURE DIVISION. 



00191 041080 

00192 041090 

00193 041100 



ENTER LINKAGE MODE. 

CALL LLINK USING SEG-1 
CALL CHKSEG 



00199 041160 

00200 041170 

00201 041180 



ENTER LINKAGE MODE. 

CALL LLINK USING SEG-3 
CALL LOASEG 



00207 042030 

00208 042040 

00209 042050 



ENTER LINKAGE MODE. 

CALL LLINK USING SEG-2 
CALL SAVSEG 



$ LINK LINKAA 
$ COBOL 

00001 010010 IDENTIFICATION DIVISION. 

00002 010020 PROGRAM-ID. CHKSEG. 



00092 040010 PROCEDURE DIVISION. 



00104 043120 200-CALL-CK-END. 

00105 043150 EXIT. 
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$ LINK LINKBB,LINKAA 
$ COBOL 

00001 010010 IDENTIFICATION DIVISION. 

00002 010020 PROGRAM-ID. SAVSEG. 



00091 040010 PROCEDURE DIVISION. 



00103 043200 200-CALL-SA-END. 

00104 043230 EXIT. 



$ LINK LINKCC,LINKBB 
$ COBOL 

00001 010010 IDENTIFICATION DIVISION. 

00002 010020 PROGRAM-ID. LOASEG. 



00091 040010 PROCEDURE DIVISION. 



00103 043160 200-CALL-LO-END, 

00104 043190 EXIT. 



NOTE: This example consists of excerpts taken from the program included 
with this appendix. 



USING l-D-S WITH A COBOL OVERLAYED PROGRAM 

since the I-D-S statements are coded within the COBOL subprograms, there 
are certain procedures that must be considered. 

A Communications Control Block (CCBLOC) must be established in a labeled 
common area. Normally, the CCBLOC is located in the COBOL program and 
the remaining structure is located in a labeled common area (.IDS...). 
When a program is divided into subprograms , each subprogram must be able 
to examine the CCBLOC. If it is isolated in the first subprogram loaded, 
then the remaining subprograms loaded will not be able to communicate 
with the CCBLOC. 
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To establish the CCBLOC in a labeled common area, write the following 
coding: 

00014 010060 ENVIRONMENT DIVISION. 

00018 010091 SPECIAL-NAME. 

00023 010096 BLOCK nn is CCBLOXK. 

(nn is a 1 or 2 digit integer) . 

This is essentially the most important feature to realize when 
overlaying a COBOL/I-D-S program. 

Another method to consider is placing the structure in a different 

labeled common area other than the .IDS., area. Since the program is 

segmented, it is now possible to execute more than one I-D-S file. In 
this situation the first file must be closed before the second can be 

opened and executed. In other words, only one file can be in the open 

mode. The reason for this is that the page buffers for a file must be 
flushed before executing another file. 



FORTRAN - INTERFACING WITH COBOL AND I-D-S 

A FORTRAN program can easily communicate with the COBOL/I-D-S software. 

The knowledge that a FORTRAN user needs of COBOL is minimal, and if a 

FORTRAN user would like to utilize the I-D-S features, again the COBOL 
coding required and understanding can be minimal. 



How to Communicate Between Compilers 

Reiterating what was mentioned regarding COBOL segmentation — 

1. Labeled common areas generated by the COBOL compiler are a one 
or two integer number always prefixed by the Letter C. 

2. Entries into the Procedure Division can be made by referring to 
the PROGRAM-ID or ENTRY POINT name. 

3. Return to the calling program is via the terminal EXIT 
statement of the EXIT name statement. 

With these facts about the COBOL compiler, a FORTRAN user can create a 
program using these two together. 
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The FORTRAN subprogram contains labeled common areas corresponding to 
the COBOL areas. Variables and/or constants stored in these areas should 
have the same classification. That is, if a variable has been defined as 
floating point in one subprogram, it is defined as floating point in the 
other. Illustration of the above statements is depicted in the following 
examples with the addition of I-D-S. 



$ SNUMB 2 4788 

$ IDENT HA96 3,ERICKSON 



$ OPTION FORTRAN 
$ FORTRAN 

SUBROUTINE GENO 

COMMON/C35/IDATA,FLTNUM,IADD, 



CALL MAINPG 



CALL SECPRG 



END 
$ ENTRY GENO 

$ USE .QMAX/1/, .QAREA/2000/, .QMIN/1/ 
$ IDS 

000010 IDENTIFICATION DIVISION. 
000 020 PROGRAM-ID. MAINPG. 



020010 ENVIRONMENT DIVISION. 

020020 SPECIAL-NAMES. 

020030 BLOCK 20 IS CCBLOXK. 

020040 BLOCK 35 IS ENTRY-REC THRU LAST-REC. 



030100 IDS SECTION 

30101 MD IDS-PORTION PAGE CONTAINS 1920 CHARACTERS 

030102 FILE CONTAINS 1000 PAGES. 

030103 01 ENTRY-REC 

030104 02 DATA-HERE SIZE IS 9(6) COMPUTATIONAL-3 . 

030105 02 MORE-DATA SIZE IS 9(8) COMPUTATIONAL- 2 . 

030106 02 ADD-MORE-DATA SIZE IS 9(6) COMPUTATIONAL-3, 



030115 01 INNER-RECORDS 



030130 01 LAST-REC 

02 THATS-ALL SIZE IS 9(7) COMPUTATIONAL-2 . 
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$ 


DISC 


$ 


DATA 


IDS 


CREATE 




ETC 


$ 


END JOB 



040010 PROCEDURE DIVISION. 

040200 GO TO MAIN-EXIT. 
0402 01 ENTER LINKAGE MODE. 

040202 ENTRY POINT SECPRG. 

040203 ENTER IDS. 

040204 RETRIEVE ENTRY-REC. 

040205 BACK-TO-FORT. 

040206 EXIT SECPRG. 

040207 MAIN-EXIT. 

040208 EXIT. 

040209 END PROGRAM. 
$ EXECUTE 

DF,X2R,2R 

• Q 

FILECODE/DF/,BASESIZE/100 0/, RANGE/1, 100 0/, 

PAGESIZE/320/ 



The contents of the labeled common area, C35, actually contain the I-D-S 
working storage area for all 02 levels beginning at record ENTRY-REC 

through record LAST-REC. Thus the equivalent values in C35 are the 
following: 

FORTRAN COBOL TYPE 

IDATA DATA-HERE Fixed Point Integer 

FLTNUM MORE-DATE Floating Point 

lADD ADD-MORE-DATE Fixed Point Integer 



Consideration When Mixing Software 

The 01 levels are always begun at an even memory location. Problems 
could occur when trying to pass information between COBOL and FORTRAN in 
the labeled common areas. To avoid this, check the labeled common size 
generated from the COBOL compiler and adjust the FORTRAN subprogram so 
that the correct data will be examined. 

FORTRAN programs, at execution time, have file control blocks and 
buffers generated by the loader in the unused portion of slave memory. 
I-D-S checks word 37 (octal) of the slave prefix area to determine the 
size of unused memory and establishes as many page buffers as possible 
in this area. So now there is a major conflict of interest. Solution: At 
load time, create a labeled common area for the page buffers and other 
I-D-S control tables by inserting a $ USE control card. Now the FORTRAN 
I/O routines can use unused slave memory without conflict. 
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00 



IS 



•6226 ENTERED »t9609 *T 90,024 FROM CD RDR 



0001 1 


[ SNUMg 


66226 


0002 1 


1 ID6NT 


HA96J, RUDOLPH 


O0O3 1 


1 PROGRAM 


QUTU 


0004 1 


1 LIMITS 


.24K 


0009 I 


( DISC 


A1,X1S,9R 


OOOt 


i DATA 


.0 


0007 


t DATA 


!• 


otot 


( OPTION 


fORTRAN 


OOOf 


i USE 


.OMAX'l', .OAR 


0010 


( OBJECT 




0012 


6 OBJECT 


SDL-2-CHG00 


0014 


S LINK 


LINKAA 


OOlS 


t OBJECT 


SDL-2-CHG00 


0017 


1 LINK 


LINKBB.LINKAA 


ooie 


I OBJECT 


SDL-2-CHGO0 


0020 


1 LINK 


LINKCClINKBB 


0021 


t OBJECT 


SDL-2-CHG00 


0023 


i EXECUTE 




0024 


1 LIMITS 


,25K 


002S 


1 DISC 


H»,X2S,8R 


002« 


1 DISC 


Tf ,XlS,9R 


0027 


t DATA 


.a 


002B 


t SySqut 


PR 


002* 


1 DATA 


CR 


0030 


1 ENDJOa 




TOTA 


. CARD COUNT THIS JOB = 0001 



INITIALIZE TEMPORARY DATA BASE 

CORE REOUIREMENTS OF QUTU 

lEMPORARY MASS STORAGE TILE 

TEMPORARY MD-S DATA FILE FOR DIRBCTIVES 

DATA STORAGE FILE 



F10;66ia2057000000000 
I10l59802O570SNOOPY0O 

I14',805020570CHKSEG00 
I10'.611020S7DSAVSEG00 
110:6i9020970LOASEGOO 



INCREASE STORAGE SIZE 



TEMPORARY MASS STORAGE FILE 
TEMPORARY I-D-S DATA FILE FOR DIR»CTIVES 
ASSIGN PRINTER TO OUTPUT MEDIA CONVERSION 
TEMPORARY FILE FQR CARD INPUT 



• BEGIN ACTIVITY -01- QUTU 02/06/70 SW»010000000000 
t NORM»L TERMINATION *T 0OJ710 INDICATORS 5020 



START 
STOP 



LIST 



).026 
).027 



LINES 

LIMIT 



20 
$000 



LAPSE 0,001 FC TYPE BUSY 

,0 H Mass • u 

I« R MASS • S7 

Al S MASS 701 



20 LINES 



PROC 0,0001 
LIMIT 0,0$OJi 

IP/AT 



FP/RT 







I/O 
LIMIT 



otooo 



IS/«C F«/#E 



1 
1 
9R 



lU 13 

CU 13 



MEMORY 

M«T 



ADDRESS Ll/T« 

0. 01-01 902 

0-01-01 902 

0-01-01 904 



2«K 
53 



lEGIN ACTIVITY -02- SELOAD 02/06/70 SMuOOODOODOOOOO 
• NORMAL TERMINATION AT Q4»770 INDICATORS 1000 



ST^RT 
STOP 



0,027 
0,033 



LINES 
LIMIT 



T^ 
,0 
CR 
R» 
H» 
L» 



543 
5000 



LAPSE 0.006 FC TYPE 



MASS 
MASS 
MASS 
MASS 
MASS 
MASS 



BUSY 

119 

3B 

40 

380 

2694 

4731 



prqc o,ooi» 

LIMIT 0,0500 



IP/AT 












FP/RT 










I/O 
LIMIT 



0'.003 



IS/*C F8/#E 



9 
1 
I 

12 
B 

25 



9R 

1 

1 
12 

8R 
25R 



lU 13 
CU 13 



MEMORY 

M«T 



ADDRESS L»/T» 



0-01-01 
0-01-01 
0-01-01 
0-01-01 
O-Ol-Ol 
0-01-.01 



904 
903 
903 
902 
913 
325 



27K 
761 



to 



85091 01 02-05-70 14.810 

1 C0MMON/Ca0/ITABLE<2«|/C2l/ICK. IL0.IS4 

2 • 

3 CALL Snoopy 

4 • 

5 CALL ENT4BC 2 

6 • 

7 lT8TeICK*IL0«lSA 3 

8 PRINT 11. ICK 4 

9 11 F0AHATI42H NUKSER OF CHECKING ACCOUNT REr-0*DS READ >,I6) 7 

10 PflINT 12. ILO 7 

11 12 F0RMAT(30H NUKBER OF LOAM RECORDS READ s.'U) 10 

12 PRINT 13, ISA ■ 10 

13 13 F0RMAT(40H NUI^BER OF SAVING ACCOUNT RECOuDS READ t,\6) 13 
1* PRINT l5. ITOT 13 

15 15 F0HMAT(31H TOTAL NUMIER OF RECORDS READ ..I6) 16 

16 STOP 16 

17 END 17 

23260 WORDS OF MEMORY USED BY THIS COMPILATION 



NOTE: This is a FORTRAN program that was compiled illustrating just a 
labeled common area (C20) and two CALL statements which reference 
COBOL programs. 



o 



85091 01 02-05-70 1^.811 

PREFACE 

PROGRAM BREAK X32 

COMMON LENGTH 

V COUNT BITS 5 

PRIMARY SYMOEF ENTRY 



SECONDARY SYMDEF ENTRY 



BLOCK 



1 C20 

2 C21 



3 
4 
5 
6 

7 
10 



SYMREF 



LENGTH 



30 
3 



ENTABC 

.fcnv. 

.FEXIT 
•FFIL. 
.FPHN. 
SNOOPY 
END OF BINARY CARD 00000006 
132 Is THE NEXT AVAILABLE LOCATION. GM«P AID 05H69 
THERE WERE NO WARNING FLAGS IN THE ABOVE ASSEMBLY 
•• 16715 WORDS OF MEMORY HERE USED 9y GMAp FOR THIS ASSBMuLY. 



86222 01 02-05-70 14,799 GE600 INTEGRATED STORE TRANSLATOR l$DL-2 CHGOO 
IDS ALTER NOS. 

00001 010010 IDENTIFICATION DIVISION, 

00002 010020 PROGRAM-ID. SNOOPV. 

00003 010030 AUTHOR. GEORGE A RUDOLPH. 

00004 010040 DATE-WRITTEN, MAY 1969. 

00005 010050 INSTALLATION, G E - PHOENIX,' 

00006 010051 REMARKS. THIS PROGRAM LOADS DATA FROM THE CARD READER 

00007 010052 ONTO A TEMPORARY DISC FILE 

00008 010053 DEPENDING ON THE ACCOUNT TYPE ROUTINES ARE 

00009 010054 CALLED TO STORE THE DATA 

00010 010055 WHEN ALL OF THE RECORDS HAVE SEBN 

00011 010056 STORED ON THE DATA BASE THEv ARC 

00012 010057 RETRIEVED AND PRINTED ON A COnTKOL 

00013 010058 REPORT. 

00014 01O060 ENVIRONMENT DIVISION, 

00015 010070 CONFIGURATION SECTION. 

00016 010080 SOURCE-COMPUTER, BE-635, 

00017 010090 OBJECT-COMPUTER, GE-635. 

00018 010091 SPECIAL-NAMES. 

00019 010092 GETIME IS TODAYS-DATE, 

00020 010093* DEFINES A LABLED COMMON AREA POR THE ID| flOMMUNICATION 

00021 010094» CONTROL BLOCK AND RECORD DEFINATIONS FOR •EGMBNTaTION 

00022 BLOCK 21 IS NUCK THRU NUSA. 

00023 010095 BLOCK 10 IS CC^LOXK. 

00024 010096 BLOCK 20 IS ENTRy-REC THRU LOAN-REC. 

00025 010200 INPUT-OUTPUT SECTION. 

00026 010210 PILE-CONTROL. 

00027 010215 SELECT PRINT-UNIT ASSIGN TO PR FOR LISTtNn. 

00028 010220 SELECT CARD-READER ASSIGN TO CR FOR CARDS. 

00029 010225* ASSIGN IDS FILE NAME AND DEVICE 

00030 010230 SELECT IDS TEST-FJlE ASSIGN TO TF, 

00031 D10240 I-O-CONTROL. 

00032 010245 APPLY SYSTEM STANDARD FORMAT ON PRINT-UNIf. 

00033 010250 APPLY SYSTEM STANDARD FORMAT ON CARD-REaDpR. 

00034 020010 DATA DIVISION. 

00035 020020 FILE SECTION, 

00036 020021 FD PRINT-UNIT 

00037 020022 LABEL RECORDS ARE STANDARD 

00038 020023 DATA RECORD IS PRINT-LINE. 

00039 020024 01 PRINT-LINE PICTURE X(132«. 
000*0 020030 FD CARD-rEADSR 

000*1 020040 LABEL RECORDS ARE STANDARD 

00042 020050 DATA RECORD IS CARD-IN. 

00043 020060 01 CARD-IN. 

00044 020070 

00045 020030 

00046 020090 

00047 020200 

00048 020210 

00049 020220 

00050 020230 



02 


ACCT-TYPE 


PICTURE 


XX. 




88 L8AN-ACCT 


VALUE "LO". 






B8 SAVE-ACCT 


VALUE "SA". 






68 CHECk-aCCT 


VALUE "CK". 




02 


CUST-NO-IN 


PICTURE 


9(6). 


02 


ACCT-NO-IN 


PICTURE 


9(6), 


02 


CUST-NAME-IN 


PICTURE 


X(2i). 









86222 


01 02- 


05- 


70 


11. 


799 OE600 INTEGRATED STORE 


TRANSLATOR 


ISO 


IDS ALTER NOS 


















00051 


020210 




02 


AMOUNT-IN 




PICTURE 


9(10)1/99. 




00052 


020250 




02 


FILLER 




PICTURE 


X(3l). 




00053 


O2o300 


MORKlNG 


-STORAQE SECTION, 








00051 


020305' 




CODING 


TO Di-FINE 


HE LINKAGE FOR SEGMENTATION 




00055 


020310 


77 


SE6 


-1 


PICTURE X(6) 


VALUE IS "LINKAA". 




00056 


02o32o 


77 


SEG 


-2 


PICTURE X(6) 


VALUE IS "LINKBB". 




00057 


020330 


77 


SEG 


-3 


PICTURE X(6) 


VALUE IS "LINKCC". 




00058 




77 


NUC 


K PICTURE 9(6) 


COM" 


■1. 






00059 




77 


NULO PICTURE 9(6) 


COmP 


■I. 






00060 




77 


NUSA PICTURE 9<6) 


COMP 


-1. 






00061 


020340 


01 


WORK-LINE. 










00062 


020350 




02 


HEAD-ONE. 










0006J 


020360 






03 


FILLER 




PICTURE 


xdi). 




O0064 


020370 






03 


TITLE-1 




PICTURE 


X(19). 




000'5 


02o38o 






03 


FILLER 




PICTURE 


x(ia) . 




000** 


02o390 




02 


HEAD-TWO REDEFINES 


HEAD-ONE. 






00067 


020400 






03 


FILLER 




PICTURE 


X(62). 




00068 


020410 






03 


MONTH-P 




PICTURE 


Z9. 




O0O69 


020420 






03 


DASH-1 




PICTURE 


X. 




O007O 


020430 






03 


DAr-P 




PICTURE 


Z9. 




00071 


020440 






03 


DASH-2 




PICTURE 


X. 




00072 


020450 






03 


yEar-p 




PICTURE 


99. 




00073 


020460 






C3 


FILLER 




PICTURE 


X(62). 




000'" 


02o*7o 




02 


HEAD-THREE REDEFINES MEAD-TuQ. 






00075 


020480 






03 


FILLER 




PICTURE 


X(24). 




000'6 


02o*90 






03 


TITLE-10 




PICTURE 


xa9). 




0007/ 


02o5oO 






03 


FILLER 




PICTURE 


X(8), 

X(l9). 




00078 


02o5lo 






03 


TITLE-20 




PICTURE 




00079 


o2o520 






03 


FILLER 




PICTURE 


X<8) , 




00080 


02o53o 






03 


TITLE-30 




PICTURE 


X(IO). 




ooosi 


o2o54o 






03 


FILLER 




PICTURE 


X(14). 




00082 


02o55o 






03 


TITLE-IO 




PICTURE 


X(6), 




00083 


02o56d 






Q3 


FILLER 




PICTURE 


X(32). 




00081 


020570 




02 


DETAIL-LINE REDEFINES HEaD-THRE! 


, 




00085 


020580 






03 


FILLE" 




PICTURE 


X(28). 




00086 


020590 






03 


CUST-NO-P 




PICTURE 


9(6). 




00087 


020600 






03 


FILLER 




PICTURE 


X(16). 




0008« 


02q6io 






03 


TYPE-P 




PICTURE 


X(8) , 




00089 


02o62o 






03 


FILLER 




PICTURE 


X(l*). 




ooo'o 


o2q63o 






03 


ACCT-NO-P 




PICTURE 


9(6). 




ooo'i 


020**0 






03 


FILLER 




PICTURE 


X(9). 




000'2 


02o65o 






C3 


amount-p 




PICTURE 


Z.ZZZ.Z72.ZZZ 


,99 


00093 


020660 






03 


FILLER 




PICTURE 


X(28). 




000'* 


02o*7o 


01 


DATE-AND-TIME. 










00095 


020680 




02 


MONTH 




PICTURE 


99. 




00096 


020690 




02 


DAY 






PICTURE 


99. 




0009/ 


020700 




02 


YEAR 




PICTURE 


99. 




00098 


020710 




02 


TIME 




PICTURE 


9(8) 




00099 


020720 








USAGE 


IS COMPUTATIONAL-] 


. 




00100 


020730 


01 


DISPLAY 


-F'EUD 




PICTURE 9(8 


. 





ISDL-2 CHGOO 



86222 01 02-05-70 14.799 SESOO INTEGRATED STORE TRANSLATOB ISDL-! ChGOO 
IDs ALTER NOS. 

00101 030010 IDS SECTION. 

01 CCBLOXK , 

02 DIRECT-REFERENCE SIZE IS 8 USAGE IS OOmPuTATIONAL-I 
SyNCHRONIZED KIQHT. 

02 FIRST-REFE«ENCe SUE IS 8 USAGE IS CflMBUTATIONAL-l 

SYNCHRONIZED RIGHT. 

02 LAST-REFERENCE SIZE IS 8 USAGE IS COMPmTaTIONAU-1 

SYNCHRONIZED RIGHT, 

02 RECORD-TYPg SIZE IS 4 USAGE IS COHPUTATlBNAL-1 

SYNCHRONIZED RIGHT. 

02 REC-FILE SIZE IS 6 CLASS IS ALPHANUMBRtC 

VALUE IS "OOOOTF", 

02 ERROR-REFERENCE SIZE IS 3 CLASS IS ALPuANUHERIC 

SYNCHRONIZED RIGHT. 

00102 030020 MD TEST-FlLE 

00103 030030 PAGE CONTAINS 1920 CHARACTERS 

00104 030040 FILE CONTAINS 100 PAGES,* 

00105 030050 01 ENTHY-REC 

00106 090060 TYPE IS 010 

00107 030070 RETRIEVAL VIA CALC CHAIN 

00108 D3O080 PAGE-RANGE IS 1 TO i. 

00109 030090 02 ENTRY-FIELD PICTURE 9(6), 

00110 03o200 98 CALC CHAIN DETAIL 

00111 030210 RANDOMIZE ON ENTRV-f IElD, 

00112 030230 98 CUST-NO-CHN CHAIN MASTER 

00113 030240 CHAIN-ORDIR IS SORTED, 

00114 030250 01 CUST-NO-REC 

00115 030260 TYPE IS 020 

00116 030270 RETRIEVAL VIA CuST-NO-CHN CHAIN. 

00117 030290 02 CUST-NO-DSU PICTURE 9(6). 

00118 o3o3oo 02 CUST-NAME-DSU PICTURE X(2»). 

00119 0^1010 »8 CuST-NO-CHN CHAIN DETAIL 

00120 031020 DUPLICATES NOT ALLOWED 

00121 031030 ASCENDING KEY IS CUST-NO-DSU 

00122 031040 SELECT CURRENT MASTER. 

00123 031050 98 CHECK-CHN CHAIN MASTER 

00124 031060 CHAIN-ORDER IS FIRST. 

00125 031070 98 SAVE-CHN CHAIN MASTER 

00126 031080 CHAIN-ORDER IS FIRST. 
0012' 031090 98 LOAN-OHN CHAIN MASTER 

00128 031200 CHAIN-ORDER IS FIRST. 

00129 031210 01 CHECK-REC 

00130 031220 TYPE IS 021 

00131 031230 RETRIEVAL VIA CHECK-CMN CHAIN, 

00132 031250 02 CUST-NO-CK PICTURE 9(6). 

00133 03l260 02 ACCT-NO-CK PICTURE 9(6). 

00134 o3l27o 02 AmOUNT-CK PICTURE S9(to>V99. 

00135 03l280 98 CHECK-CHN CHAIN DETAIL 

00136 031290 SELECT CURRENT MASTER, 

00137 032010 01 SAVB-REC 



-J 



to 



86222 01 02-05-70 14,799 GE600 INTtGRATED S'ORE Tfl4NSLAT0R ISDL-Z CHGCO 
IDs ALTER NOS, 



0013B 


032020 




TYPE IS 022 


00139 


032030 




RETRIEVAL VIA SAVE-CHM CHAIN. 


00140 


032050 




02 CUST-N0-S4 PIC'URE 9(6). 


001*1 


032o6o 




02 ACCT-MO-S* PlC'URE 9(6), 


OOl^i 


032070 




02 AHOUM-SA PIC'URE S9(^0^V99 


00143 


032080 




98 SAVE-CHM CHAIM DETAIL 


00144 


032210 




SELECT CURRENT MASTER. 


00145 


032220 


01 


LOAN-REC 


00l4t 


032230 




TYPE IS 023 


00147 


032240 




RETRIEVAL VIA L3AN-CHS CHAIN, 


00148 


032260 




02 CUST-NO-LO PICTURE 9(6), 


001*9 


o3227o 




02 ACCT-NO-LO PICTURE 9(6). 


OOlSo 


0>!228o 




02 AHOUNT-LO PICTURE S9{iOiV99 


OOlSl 


032290 




98 LQAN-Ch«l ChAIN DETAIL 


00152 


032320 




SELECT CURRENT MASTER. 


00153 


Q40010 


PROCEDURE DIVISIOM. 


00154 


040022 


010 


-START. 


0015b 


040023 




ACCEPT DATE-AND-TlME FROM TODAYS-DATE. 


00156 


040024 




OPEN INPUT CARU-RFADER 


00157 


040025 




OUTPUT PRINT-UNIT. 


00158 


040030" 




OPEN IDS DATA BASE 


00159 


040040 




ENTER IDS. 


O0160 


040050 




OPEN. 


00161 


040055 




HOVE OOnoOl TO ENTPY-riELC . 


00162 


040057« 




CREATE ENTRY RECORD 


00163 


040060 




ENTER IDS. 


00164 


O4O070 




STORE ENTRY-REC 


00165 


040080 




IP ERRO" GC TO 100-RCT-MST-fcNTRY-ERR , 


00166 


040081 




ENTER IDS- 


016/ 


040082 




DEBUG CIIRRE'JT bUFFER 


00168 


040083 




hECORD 


0016'^ 


040084 




CCBLOC. 


00170 


040090 


020 


-READ-CARDS. 


00171 


040100 




READ CAPD-RFADER AT E'^D Go TO 3 1 0-SNOQPV-ex I T 


00172 


040110 




IF LOAN-ACCT OS SAvE-ACCT OR CHECK-aCCT 


00173 


040120 




GO TO 030-frocess-car: . 


00174 


040130 




DISPLAY "INVALID CARD CODE". 


0017^ 


Q4C140 




DISPLAY CASr-IN. 


00176 


040150 




GO TO 020-READ-CARlIS. 


0017/ 


040160 


030 


-PROCESS-CARn, 


0017B 


040170 




ENTER IDS, 


00179 


040180 




RETRIEVF ENTRY-HEC RECORD 


ooieo 


040190 




IF ERROR GO TO 100-RET-MST-ENTRV-ERH. 


OOIBI 


040200 


040 


-RET-CUST-REC. 


00162 


04(>210 




ENTER IDS. 


00183 


040220 




RETRIEVF NEXT RECORD Of CUST-NO-CWN CJAIN 


00164 


040230 




IF ERRO" GO TO llO-RET -KST -ERR ELSE 


00185 


040240 




IF ENTRy-REC HECORD GO TO Od 0-ST ORE-MaT-R 


00186 


040250 




ELSE MOVE. 


00187 


041010 




IF CUST-NO-IN is EQUAL TO rUST-,.0-DSU 



B6222 01 02-05-70 14.799 QE600 INTEGRATED STORE TRANSLATOR ISDL-2 CHGOO 
IDS ALTER NOSi 

00188 0*1020 GO To 050-STORE-DETAlL . 

00189 D41030 GO TO O^O-RET-CUST-REC . 

00190 0'11040 050-STOHE-DETAIL. 

00191 041050 IF LOAN«ACCT SO TO 060-SToRE-LOAN . 

00192 041060 IF SAVE-ACCT 00 TO 070-STORE-SAVE . 

00193 ADD 1 TO NUCK, 

00194 Q41065* CALL CHECKING SEGMENT 

00195 041070« CREATES AND STnRE! CHBCK-REC RECORD 

00196 041080 ENTER LINKAGE MODE, 

00197 041090 CALL LLINK USING SEG-1 

00198 04HO0 CALL CHKSEG 

00199 041110 ENTER COBOL. 

00200 041130 GO TO OZO-REAO-CARDS . 

00201 041140 060-STORE-LOAN. 

00202 ADD I TO NULO- 

00203 040045. CALL LOAN SEGMENT 

00204 040050« CREATES AND STORES LOAN-RBC RECORD 

00205 041160 ENTER LINKA8E MODE, 

00206 041170 CALL LLiNK uSlNG SeG-3 

00207 041180 CALL LOASEQ 

00208 041190 ENTER COBOL. 

00209 041210 GO TO 020-READ'-CARDS. 

00210 042010 070-,ST0RE-SAVE, 

00211 ADD 1 TO NUSA. 

00212 042015< CALL SAVING SEGMENT 

00213 042020* CREATES AND STORES SAv-REC RECORD 

00214 042030 ENTER LINKAGE "ODE. 

00215 042040 CALL LLINK USING SEG-2 

00216 042050 CALL SAVSEG 

00217 042060 ENTER COBOL. 

00218 042080 GO TO 020-READ-CARDS . 

00219 042090 080-STORE-MST-REC. 

00220 042091. CREATE AND STORE CUSTOMER NUMBER RECORD 

00221 042100 MOVE CUST-NO-IN TO CUSTrNQ-DSU. 

00222 042110 MOVE CUST-NAME-IN TO OUST-NAMB-DSU . 

00223 042120 ENTER IDS. 

00224 042130 STORE CUST-NO-REC 

00225 042140 IF ERROR 00 TO 150-SToRE-eUS'-REC-EBR. 

00226 042141 ENTER IDS. 

00227 042142 DEBUG CURRENT BUFFER 

00228 042143 RECORD 

00229 042143 CCBLOC 

00230 042150 GO TO 050-STORE-DETA R . 

00231 043010 100-RET-MST«ENTRy-ERR. 

00232 043020 DISPLAY "RETRIEVE ERROR". 

00233 043030 DISPLAY "FILE ENTRY RECORD". 

00234 043040 Go TO 300-WRAP-UP. 

00235 043050 IID-RET-MST-ERR. 

00236 043060 DISPLAY "RETRIEVE ERROR". 

00237 043070 DISPLAY "CUSTOMER RECORD", 



K) 
-J 

(Ji 






86222 01 02-05-70 14,799 GE60(1 INTEGRATED STORE TRANSLATOR ISDL-! CH500 



IDS ALTER NOSi 



00236 
00239 
00240 
00241 
00242 
00243 
00244 
0024S 
00246 
00247 
0024B 
00249 
00250 
00251 
00252 
00253 
00254 
00255 
00256 
00257 
0025S 
00259 
00260 
00261 
00262 
00263 
00264 
00265 
00266 
00267 
0026B 
00269 
00270 
00271 
00272 
O0273 
00274 
00275 
00276 
00277 
0O278 
00279 
00280 
00281 
00282 
00283 
00284 
00285 
00286 
00287 



04308 
04321 
04322 
04323 
04324 
04324 
04324 
04324 
04324 
04401 
04401 
04401 
04402 
04403 
04404 
04404 
04405 
04406 
04407 
04408 
04409 
04410 
04411 
04413 
04414 
04415 
04416 
04417 
04418 
04419 
04420 
04421 
04422 
04423 
04424 
04425 
04426 
04427 
04427 
04428 
04429 
04430 
04431 
04412 
04433 
04434 
04434 
04435 
04436 
04437 



150 













1» 

2« 

3> 

4« 

4 

5 

6 







5» 













































5. 













203- 

5» 









201 



60 TO 040-RET-CUST-REC, 
STORE-CUST-REC-ERR, 
DISPLAY "STORE ERROR", 
DISBLAT "CUSTOMER RECORD". 
GO TO 020-REAB-eARDS. 

THIS IS THE ENTRY pRoINT ROUTINE THAT 
IS CALLED Sy the FORTRAN PROGRAM 



ENTER LINKAGE MODE. 

ENTRY POINT ENTABC, 
ENTER COBOL. 

MOVE SPACES TO WORK-LINE 
WRITE PRINT-LINE FROM WORK 

BEFORE ADVANCING TO Tg 
SET UP AND PRINT REPORT HE 
MOVE "CUSTOMER NUMBERS AND 

TO TITLE-1. 
WRITE PRINT-LINE FROM WORK 
MOVE SPACES TO WORK-LINE. 
MOVE MONTH TO MONTH-P. 
MOVE DAY TO DAY-P. 
MOVE YEAR TO YEAR-P. 
MOVE "-" TO DASH-l. DASH-2 
WRITE PRINT-LINB FROM WORK 
MOVE SPACES TO WORK-LINE. 
MOVE "CUSTOmE" NUMBER" TO 
MOVE "TYPE OF ACCOUNT" TO 
MOVE "ACCOUNT NO" TO TITL 
MOVE "AMOUNT" TO TITLE-40. 
WRITE PRINT-LINE fROM WORK 
MOVE SPACES TO WORK-LINE. 
MOVE 000001 TO ENTRY-FIELD 
ENTER IDS. 

RETRIEVE 6NTRY-REC REC 

IF ERROR GO TO 209-RET 
iQET-CUST-CHN, 

write print-line from work 
retrieve and print customs 
Enter ids. 

retrieve next record 
if error go to 210-ret 
if entrv-rec record go 
else move, 

MOVE CUST-NO-DSU TO CUST-N 

■GET-CHEOK-RECi 

RETRIEVE AND PRINT DETAIL 

ENTER IDS. 

RETRIEVE NEXT RECORD 
IF ERROR SO TO 2H-RET 



LINE 
P OF PAGE. 
ADINGS 

ACCOUNTS STOREii ON DATA FILE" 

-LINE BEFORE ADuANCINS 2 LINES, 



-LINE BEFORE ADVANCING 2 LINES. 

TITi.E-10. 
TITLE-20. 
E-30. 

'LINE BEFORE ADVANCING 2 LINES, 



ORD 
ENT-ERR. 

LINE BEFORE AOv/ANClNG 1 LINES, 
R NUMBER RECORD* 

F CUST-NO-CHN Chain 
-CUST-ERR ELSE 
TO 206-CREAT. Error 

O-P, 

RECORDS OF CHgCx-CHN CHAIN 

F CHECK-CHN CHAIN 
CK-ERR ELSE 
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IDS ALTER NOS, 

00288 044380 IF CUST-NO-REC RECORD GO TO 204.GET.S»VI-flEC 

00289 044390 ELSE MOVE. 

00290 044400 MOVE "CHECKINQ" TO TYPE-P. 

00291 044410 MOVE ACCT-NO-CK TO ACCT-NO-P. 

00292 044420 MOVE AMOUNT-CK TO AMOUNT-P. 

00293 044430 WRITE PRINT-LINE FROM MORK-LINE BEFORE ADuANCING 1 LINES, 

00294 044440 MOVE SPACES TO MORK-LINE. 

00295 044450 GO TO 203-QET-CMECK-REC', 

00296 044460 204,GBT-SAVE-REC ■ 

00297 044465« RETRIEVE AND PRINT DETAIL RECORDS OF SAVE.CMN CHAIN 

00298 044470 ENTER IDS. 

00299 044480 RETRIEVE NEXT RECORD OF SAVE-CHN CHAlu 

00300 044490 IF ERROR GO TO 212-RET-SA-EHR ELSS 

00301 044500 IF CUST-NO-REC RECORD GO TO 205-aST-L"AN-REC 

00302 044S10 ELSE MOVE. 

00303 044520 MOVE "SAVINBS " TO TYPE-P. 

00304 044530 MOVE ACCT-NO-SA TO ACCT-NO-P. 

00305 044540 MOVE AMOUMT-SA TO AMOUNT-P . 

00306 044550 HRiTE PRINT-LINE FROM MORK-LINE BEFORE ADuANCING 1 LINES, 

00307 044560 MOVE SPACES TO MORK-LINE. 

00308 044570 GO TO 204-GET-SAVE-RECi 

00309 044580 205-,GET-LaAN-REC . 

00310 044585* RETRIEVE AND PRINT DETAIL RECORDS OF LOAN.CWN CHAIN 

00311 044590 ENTER IDS. 

00312 044600 RETRIEVE NEXT RECORD OF LOAN-CHN CHAIm 

00313 044610 IF ERROR 00 TO 21S-RET-L0-ERR ELSE 

00314 044620 IF CUST-NO-REC RECORD GO TO 201-aET.CiiST-eHN 

00315 044630 ELSE MOVE. 

00316 044640 MOVE "LOAN " TO TYPE-P. 

00317 044660 MOVE ACCT-NO-LO TO ACCT-NO-Pi 

00318 044670 MOVE AMOUNT-LO TO AMOUNT-P. 

00319 044480 MRITE PRINT-LINE FROM MoRk-LINE BEFORE ADVANCING 1 LINES, 

00320 044690 MOVE SPACES TO MORK-LINE. 

00321 044700 GO TO 205-GET-LOAN-REC. 

00322 044710 206-CREAT-ERROR . 

00323 044720 HRITE PRINT-LINE FROM MORK-LINE BEFORE 

00324 044730 ADVANCING TO TOP OF PAGE. 

00325 044820 ENTER IDS. 

00326 044830 DEBUG CURRENT BUFFER 

00327 044840 RECORD 

00328 044850 CCBUOC 

00329 044855 TRACE CUST-NO-CHN CHAIN. 

00330 044870 GO TO 300-MRAP-UP. 

00331 044920 Z09-RET-ENT-ERR, 

00332 044930 DISPLAY "RETRIEVE ERROR'. 

00333 044940 DISPLAY "FILE ENTRY RECORD". 

00334 044»50 GO TO 300-MPAP-UP' 

00335 044960 210-RET-euST-ERP, 

00336 044970 DISPLAY "RETRIEVE ERROR". 

00337 044980 DISPLAY "CUSTOMER RECORD". 



-J 
-J 



00 
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IDS ALTER NOSi 

00338 044990 GO TO 201-GET-CuST-CHM, 

00339 045100 211-RET-CK-ERR , 

00340 045110 DISPLAY "RETRIEVE ERROR". 

00341 045120 DISPLAY "CHECK RECORD". 

00342 045130 60 TO 203»GET-CHECK-ReCV 

00343 045140 212-RET-SA-ERR , 

00344 045150 DISPLAY "RETRIEVE ERROR"- 

00345 045160 DISPLAY "SAVING RECORD".' 

00346 045170 QQ TO 204-GET-SAvE-REC. 

00347 045180 213-.rEt-LO-ErR. 

00348 045190 DISPLAY "RETRIEVE ERRflR". 

00349 045200 DISPLAY "LOAN RECORD", 

00350 045210 GO TO ZOS-QET-LOAN-REC. 

00351 045220 300-WRAP-UP> 

0035Z 045240 CLOSE CARD-READER, PRINT-UNIT, 

00353 045245* CLOSE IDS DATA BASE 

00354 045250 ENTER IDS, 

00355 045260 CLOSE. 

00356 045261 309-PR09RAM-EX1 T . 

00357 045262 EXIT ENTASC. 

00358 045270 SIO-^SNOOPY-EXIT . 

00359 045280 EXIT PROGRAM, 

IDS-STRUCTURE SECTION. 
ENTER GMAP . 
PMC OM 

Block ,ids,, 

RD0641 iQRD 023. 000033, OiO.O.OOOOOO. 

ETC RD06^1>RD0645,RC0643.000 0.RD6J7j, 

ETC 000000,0O0000«lOAN-REC 

RD0645 ,aDD 023,10,0,0,1,1. 

ETC l,RD0641,RD0641,RD4»09,RD4609,RnO«4S, 

ETC 0029,0000,0000, 

ETC LOAN-CHN 

RD0643 .gro 0,0>OD0011,0006,rc4«13,ROo644, 

ETC ROO»*3,RD4610. 

ETC ACCT-NO-LO 

RD0644 .JFD 3,0. 000017, 0012, FC6209,RD0642, 

ETC RD0644,RD6209, 

ETC AMOUNT-LO 

RD0642 ,|FD , 0> 000005, 0006, rcil53,RD0641, 

ETC RD0642,RD1153. 

ETC CUST-NO-LO 

RD6273 .ORD 022. 000033 , 0. . ,000000 > 

ETC Rn627 3,RD6277,,RD6275,0000,RD146*, 

ETC 000000, OOOOOOi'SAVE-REC 

RD6277 iSDD 022.10.0,0.1,1, 

ETC l.RD6273.flD*273,RD5a89.RD58Bg,Rn6z77, 

ETC 0029>0000i0000. 

ETC SAVE-CHN 

RD6Z75 ,8FD 0,0. 000011, 0006. FC7745.RD6276, 
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IDS ALTER NOS. 



00001 
00002 
00003 
00004 

oooos 

00006 
00007 
00008 
00OO9 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
O0O18 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
000^6 
00037 
00038 
00039 



010010 
010020 
010030 
010040 
010050 
010051 
010052 
010053 
010060 
01O070 
OlOOBO 
010090 
010091 
010092 
010095 
010096 
010200 
010210 
010220 
010230 
010240 
010250 
020010 
020020 
020030 
020040 
020050 
020060 
020070 
020080 
020090 
020200 
020210 
020220 
020230 
o2o24o 
020250 
020300 
030010 



IDENTIFICATION DIVISION, 

PROGRAM-ID. CHKSEQi 

AUTHOR. SEORSe A RUDOLR^- 

DATE-HRITTEN, MAY 1»69. 

INSTALLATION. S-E • PHOENIXV 

REMARKS. THIS IS THE CHECKING SEGMENT WHICH I« CALLED BY 

THE MAIN RROORAM SNOORY TO CREATE AND STObE 

CHECK-REC RECORDS, 
ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER, 86-635, 
OBJECT-COMPUTER. aE-635. 
SPECIAL-NAMES. 

GETIME IS TBBAYS-DATE, 

BLOCK 10 is CCBLOXK, 

BLOCK 20 IS ENTRY-REC THRU LOAN-REC. 
INPUT-OUTPUT SECTION, 
FILE-CONTROL, 

SELECT CARD-READER ASSIGN TO CR FOR CARDS. 

SELECT IDS TEST-FILE ASSIGN TO TF, 
I-0-CONTROL. 

APPLY SYSTEM STANDARD FORMAT ON CARD-READBR. 
DATA DIVISION. 
FILE SECTION. 
FD CARD-READER 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS CARD-IN, 

CARD-IN, 



01 



02 



02 
03 
02 

02 
02 



PICTURE XX, 
VALUE "LO". 
VALUE "SA". 
VALUE "CK". 

PICTURE 9(6). 

PICTURE 9(61, 

PICTURE X(2«). 

PICTURE 9(lo)«99. 

PICTURE X(3i). 



ACCT-TYPE 

88 LOAN-ACCT 

88 SAVE-ACCT 

88 CMECK-ACCT 

CUST-NO-IN 

AOCT-NO-IN 

CUST-NAME-IN 

AMOUNT-IN 

FILLER 

WORKINS-STORAGE SECTION. 
IDS SECTION. 

01 CCBLOXK . 

02 OIRECT-REFERSNCE SIZE IS 8 USAGE IS OOxRUTATIONAL-l 
SYNCHRONIZED RIGHT, 

02 FIRST-REFERENCE SIZE IS 6 USAGE IS COMPUTAT IONAL-1 

SYNCHRONIZED RIGHT. 

02 LAST'REFERENCE SIZE IS 8 USAGE IS COMPiiTATIONAL-1 

SYNCHRONIZED RIGHT. 

02 RECORD-TYPE SIZE IS 4 USAGE IS COMPUTATloNAL-1 

SYNCHRONIZED RIGHT. 

02 REC-FILE SIZE IS 6 CLASS IS ALPHANUMERIC 

VALUE IS "OOOOTF", 






00 
O 
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IDS ALTER NOSi 



00040 
00041 
00042 
00043 
00044 
00Q4!i 
00046 
00047 

000^8 
00049 
OOOSO 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
0006^ 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 

ooo'i 

00072 
OO073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 

oooai 

00082 
00083 
00084 
00085 
00086 
O00»7 



030020 MO 

030030 

D3Q040 

030050 01 

030060 

030070 

030080 

030090 

030200 

030210 

030230 

030240 

030250 01 

030260 

030270 

030290 

030300 

031010 

031020 

031030 

O31O40 

031090 

031060 

031070 

031080 

031090 

031200 

031210 01 

031220 

031230 

031250 

03i26o 

031270 

031280 

031290 

032010 01 

032020 

032030 

032050 

032060 

032070 

032060 

032210 

032220 01 

032230 

032240 

032260 

o3227o 



02 ERROR-RErERENCE SIZE IS 3 CLASS IS AtPuANUMERIC 

SYNCHRONIZED RISHT. 

TEST-flLE 

PAGE CONTAINS 1920 CHARACTERS 

FILE CONTAINS 100 PAGES. 

ENTRY-REC 

TYPE IS 010 

RETRIEVAL VIA CALC CHAIN 

PAGE-RANGE IS 

02 

98 



PICTURE 9<6l. 



1 TO 1, 
ENTRY-FIELD 
CALC CHAIN DETAIL 

RANDoHizE ON Entry-field, 

CUST-NO-CHN CHAIN MASTER 

CHAIN-ORDER IS SORTED. 
CUST-N0«R8C 
TYPE IS 020 

RETRIEVAL VIA CUST-NO-CHN CHAIN. 
02 CUST-NO-DSU PICTURE 9(6). 

CUST-NAME-BSU PICTURE X(2»). 

CuST-NO-CHN CHAIN DETIIL 

DUPLICATES NOT ALLOWED 

ASCENDING KEY IS CUST-NO-DSU 

SELECT CURRENT MASTER. 

CHECK-CHN CHAIN MASTER 

CHAIN-ORDER IS FIRST, 

SAVE-CHN CHAIN MASTER 

CHAIN-ORDER IS FIRST. 

LOAN-CHN CHAIN MAITER 

CHAIN-ORDER IS FIRST. 
CHECK-HEC 
TYPE IS 021 
RETRIEVAL VIA CHECK-CHN CHAIN. 



98 



02 
98 



98 
98 



98 



02 CUST-NO-CK 

02 ACCT-NO-CK 

02 AMOUNT-Ck 

98 CHECK-CHN CHAIN DETAIL 

SELECT CURRENT MASTER, 
SAVE-REC 
TYPE IS 022 

RETRIEVAL VIA SAVE-CHN CHAIN 
02 CUST-NO-S* 
02 ACCT-NO-SA 
02 AMOUNT-SA 
98 SAVE-CHN CHAIN DETAIL 

SELECT CURRENT MASTER 
LOAN-REC 
TYPE IS 023 

RETRIEVAL VIA LOAN-CHN CHAIN 
02 CUST-NO-LO 
02 ACCT-NO-LO 



PICTURE 9(6), 
PICTURE 9(6), 
PICTURE S9(lOiV99, 



PICTURE 9(6), 
PICTURE 9(6) . 
PICTURE S9(10iV99, 



PICTURE 9(6). 
PICTURE 9(6), 
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IDS ALTER NOSi 



PICTURE S»(10iV99. 



00088 032280 02 AHOUNT-LD 

00089 032290 98 LOAN-CHN CHAIN DETAIL 

00090 032320 SELECT CURRENT MASTER. 

00091 040010 PROCEDURE DIVISION. 

00092 042000 tOO-SAVE-PARA. 

00093 0420ZO MOVE CUST-NO-IN TO CUST-NO-SA. 

00094 042030 MOVE ACCT-NO-IN TO ACCT-NO-SA, 

00095 042040 MOVE AMOUNT-IN TO AMOUNT-SA, 

00096 042090 ENTiR IDS. 

00097 042060 STORE SAVE>REC RECORD 

00098 042070 IF ERROR 00 TO 140-SToRE-SA-ERR . 

00099 042080 SO TO 200-CALL<SA-END, 

00100 043170 140-STORE-SA-ERR, 

00101 043180 DISPLAY "STORE ERROR", 

00102 043190 DISPLAY "SAVE RECORDS". 

00103 043200 ZOO-CALL-SA-END. 

00104 043230 ExiT, 

IDS-STRUOTURE SECTION. 
ENTER SMAP . 
PMC ON 
BLOCK ,IDS.. 

023, 000033, O.O.O.OOOOOOi 

RDD641,RD064S,RD0643<QOOO,RD6a7:i, 

000000, OOOOOOiLOAN-REC 

OZ3<10,0,0,1,1, 

l,RD0t41,RDO641,RD4609,RD46O9,RnO649, 

Oa29>0000i0000, 

LOAN-CHN 

0,0,0 00011, D006,FC4»1 a, RD0644, 

RD0«*3,RD4610. 

ACCT-NO-LO 

3, 0,000017, 0012, PC6209,RD0642, 

RD0*44,RD62Q9, 

AMOUNT-tO 

0,0, 000005 >0006,FC11S3 I RD0641, 

RDOi42'R01l53, 

CUST-NO-LO 

022,000033,0,0,0,000000, 

RD6273,ftD«277,RD6279.0000.RDl«6i|, 

000000, 000000 >S«VE-R8C 

022,10,0,0,1,1, 

l.R06273,RD»273,RD5889,RD5e»9,Rn6277, 

0029,0000i0000, 

SAVE-CHN 

0,0 ,000011, 0006, FC7745,RD6i76, 

R06275.RD774S, 

ACCT-NO-SA 

3, 0,000017, 0012, FC3137,RD6274, 

RB4276,RD3lS7. 

AMOUNT-SA 



RD0641 ,QRD 
ETC 
ETC 

RD0649 ,«DD 
ETC 
ETC 
ETC 

RD0643 ,aFD 
ETC 
ETC 

.aro 

ETC 

ETC 

,BFD 

ETC 

ETC 

lORO 

ETC 

ETC 

,0D0 

ETC 

ETC 

ETC 

,OFD 

ETC 

ETC 

,aFD 

ETC 

ETC 



RD0644 



RC0642 



RDi279 



RD6277 



RD627$ 



RD6276 



to 

00 



CD 
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00001 
00002 
00003 
00004 
00003 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
OOOIS 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00028 
00029 
00030 
00031 
00032 
00033 
00034 
00035 
O00'i6 
00037 
00038 
00039 



010010 
010020 
010 030 
010040 
010050 
010051 
010052 
010053 
010060 
010070 
OlOOSO 
010090 
O1O091 
010092 
010095 
010096 
010200 
010210 
010220 
010230 
010240 
010250 
020010 
020020 
020030 
020040 
020050 
020060 
020070 
020080 
020090 
020200 
020210 
020220 
020230 
o2o24o 
02o25o 
020300 
D3O010 



IDENTIFICATION DIVISION, 

PROGRAM-ID. SAVSEG. 

AUTHOR, SEORGE A RUDOLPH, 

DATE-WRITTEN, MAT 1969. 

INSTALLATION. G E • PHOENIX, 

REMARKS. THIS IS THE SAVING SEGMENT WHICH IS CALLED BY 

THt MAIN PROGRAM SNOOPY To CREATE AND STORE 

SAVE-REC RECORDS. 
ENVIRONMENT DIVISION, 
CONFIGURATION SECTION. 
SOURCE-COMPUTER. QE-635, 
OBJECT-COMPUTER, BE-635, 
SPECIAL-NAMES. 

G6TIME IS TODAYI-DATE, 

BLOCK 10 IS CCBLOXK, 

BLOCK 20 IS ENTRY-REC THRU LOAN-REC. 
INPUT-OUTPUT SECTION. 
FILE-CONTROL, 

SilECT CARD-READER ASSIGN TO OR FOR CARDS. 

SELECT IDS TEST-FILE ASSIGN TO TF. 
1-0-CONTROL. 

APPLY SYSTEM STANDARD FORMAT ON CARD-REaObR, 
DATA DIVISION. 
FILE SECTION. 
FD CARB-READER 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS eARDi>IN. 

CARD-Ihl. 



01 



02 



02 
02 
02 
02 
02 



PICTURE XX. 
VALUE "LO", 
VALUE "SA". 
VALUE "CK". 

Picture 9(6). 

PICTURE »t6l, 

picture X(29). 

PICTURE 9(lo)u99. 

PICTURE X(3l). 



ACCT-TYPE 

e» LOAN-ACCT 

68 S*VE-ACeT 

88 CHECk-ACCT 

CUST-NO-IN 

ACCT-NO-IN 

CUST-NAME-IN 

AMOUNT-IN 

FILLER 
WORKInS-STORAOE SECTION, 
IDS SECTION. 

01 CCBLOXK . 

02 DIRECT-REFKRINCE SIZE IS 8 USAGE IS eo-PUTATIONAL-l 
SYNCHRONIIEtl RIGHT. 

02 FIRST-REFERENCE SIZE IS 8 USAGE IS COMaUTATIONAL-1 

SYNCHRONIZED RIOHT, 

02 LAST-REFERENCE SIZE IS 8 USAGE IS C0MP"TATI0NAL-1 

SYNCHR0NI7EB RIGHT, 

02 RECORD-TYPE SIZE IS 4 USAGE IS COMPUTATIONAL-l 

SYNCHRONIZED RIGHT. 

02 REC-FILE SIZE IS 6 CLASS IS ALPHANtlMBRiC 

VALUE IS "OOOOtF", 
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ISDL-2 CHGOO 



IDS ALTER NOS. 



00040 
00041 
00042 
00043 
00044 
00045 
00046 
00047 
000*8 
00049 
000$D 
OOOSl 
00Q52 
00053 
00054 
00055 
00056 
00057 
00G56 
00059 
00060 
00061 
00062 
00063 
00064 
O0065 
00066 
00067 
0006B 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
OOOBO 
OOOBl 
00082 
00083 
00084 
00085 
00086 
00087 



0300ZO MD 

030030 

030040 

030050 01 

030060 

030070 

0300S0 

O3OO90 

O^oZoO 

O3O210 

030230 

030240 

030ZS0 01 

030260 

030270 

030290 

O3o3oo 

03l010 

0310ZO 

031030 

031040 

0310S0 

031060 

031070 

031080 

031090 

031200 

031210 01 

031220 

031230 

031250 

O3l260 

03lZ70 

03lZ80 

O31290 

032010 01 

032020 

032030 

032050 

032o6o 

032070 

032080 

032210 

032220 01 

032230 

032240 

032260 

032270 



02 ERROR-REFERENCE SUE IS 3 CLASS IS ALRuANUMERIC 

SVNOHRONIZED RI8HT. 

TEST-riLE 

PAGE CONTAINS 1920 CHARACTERS 

FILE CONTAINS 100 PAGIS, 

ENTSY-REC 

TYPE IS 010 

RETRIEVAL VIA CALC CHAIN 

PAGE-RANGE IS 1 TO 1. 

02 ENTRY-FIELD PICTURE 9(6), 

CALC CHAIN DETAIL 

RANDOMIZE ON BNTRY-FIBLD, 

CUST-NO-CHN CHAIN MASTER 

CHAIN-ORDER IS SORTED. 
CUST-NC-REC 
TYPE IS O20 

RETmEVAL VIA CUST-NO-CHN CHAIN. 
02 CUST-NQ-DSU PICTURE 9r6». 

CUST-NAME-DSU PICTURE Xl2»). 

CUST-NO-CHN CHAIN DETAIL 

DUPLICATES NOT ALLOWED 

ASCENDING KEY IS CUST-NO-DSU 

SELECT CURRENT MASTER. 

CHECK-CHN CHAIN MASTER 

CHAIN-ORDIR IS FIRST. 

SAVE-CHN CHAIN MASTER 

CHAIN-ORDER IS FlUST. 

LOAN-CHN CHAIN MASTER 

CHAIN-ORDER IS FIRST. 
CHESK-REC 
TYPE IS 021 
RETRIEVAL VIA CHECK-CHN CHAIN. 



98 



93 



02 
98 



98 



98 



98 



02 CUST-NO-CK 
02 ACCT-NO-CK 
02 AMOUNT-CK 
98 CHECK-CHN CHAIN DgTAIL 
SELECT CURRiNT MASTER. 
SAVE-REC 
TYPE IS 022 
RETRIEVAL VIA SAVE-CHN CHAIN 



PICTURE 9(6), 
PICTURE 9(6), 
PICTURE S9(lQtV99, 



02 CUST-NQ-SA 
02 ACCT-NO-SA 
02 AMOUNT-SA 
98 SAVE-CHN CHAIN DETAIL 
SELECT CURRINT MASTER 
LOAN-REC 
TYPE IS 023 
RETRIEVAL VIA LOAN-CHN CHAIN. 



PICTURE 9(6). 
PICTURE 9(6), 
PICTURE S9(10tV99, 



02 
02 



CUST-NO-LO 
ACCT-NO-LO 



PICTURE 9(6), 
PICTURE 9(6), 



03 



CO 



86226 01 02-05-70 
IDs ALTER NOS. 



14,791 QE600 INTEGRATED STORE TRANSLATOR ISDU-2 CHGOO 



00008 032280 
00()B9 0^2290 
00090 032320 



02 AMOUNT-LO 
9« LQAN-CHN CHAIN DETAIL 
SELECT CURRSNT MASTER. 



PICTURE S9(10>W99, 



86226 01 02-05-70 14,791 QE600 INTEGRATED STORE TRANSLATOR ISDfJ CHGOO 
IDS ALTER NOS. 

00091 OaOOOO'EjECT 

00092 oeoOlO PROCEDURE DIVISION. 

00093 061050 lOOtCHECK-PARA, 

00094 081070 MOVE CUST-NO-IN TO CUST-NO-CK. 
00096 081080 MOVE ACCT-NO-IN TO ACCT-NO-CK. 

00096 081090 MOVE AMOUNT-IN TO AMOUNT-CK. 

00097 081100 ENTER IDS< 

00098 081110 STORE CHECK-REC RECORD 

00099 08U20 IF ERROR 00 TO 120-STORE-CK-ERR . 

00100 081130 GO TO 200-CALL-CK-eND, 

00101 083090 120-STORE-CK-ERR, 

00102 083100 tISPL*Y "STORE ERROR", 

00103 083110 BISBtAY "CHECK RECORD". 

00104 0s3i20 zoo-call-ck^end. 

00105 083150 Exit, 

IDS-STRUCTURE SECTIOH, 
ENTER GMAP , 

PMC ON 

BLOCK .IDS.. 

RD0641 .QRD 023.000033, OiO.O.OOOOOO. 

ETC ROO&41,RD064S.RD0643>000 0>RD637i, 

ETC 000000, 000000. LOAN-REC 

RD0645 ,aOD 023,ia.0,0.t>l, 

ETC l,Rll0641,RD0641,RD4i09,R04609,Rn0649, 

ETC 00Z9<aO00iOO00, 

ETC LBAN-CHN 

RD0643 .(FD O.Q'000011,OD06,rC4610,RD0644, 

ETC RD0*43,RD4610< 

ETC ACCT-NO-LO 

RD0644 ,aFD 3.0'000017,0012.FC6209,RD0642, 

ETC RD0«44,RD6209. 

ETC AMOUNT-LO 

R00642 ,QFD 0<0>000005.0006,FC1153,RD0641, 

ETC RD0«42,«D11»3* 

ETC CUST-NO-LO 

R06273 ,BRD 022> 000033, 0,0. Oi 000000. 

ETC RDt273,RD6277,RD627S,0 000,RD166*, 

ETC 000000. 000000. SAVE-REC 

RD6277 ,ODD 022.10.0,0,1,1. 

ETC l.RD6273,RD«273,RD5889,RD5889,Rn6277, 

ETC 0029,0000,0000. 

ETC SAVE-CHN 

RD6275 ,OFD 0.0.000011, 8006, FC7745,RD6276, 

ETC RD627S,RD7745. 

ETC ACCT-NO-SA 

R06276 ,QFD 3, 0.000017, 0012, FC3l37,RD6274, 

ETC RD6276,RD3137, 

ETC AMOUNT-SA 

RD6274 ,9FD 0. 0, 000005, 0006, FC1025,RD6273, 

ETC RD6274,RDt025, 



CO 






86225 01 02-05-70 i4.8o9 GESoO INTEGRATED STORE TRANSLATOR ISDL-Z CHGOO 
IDS ALTER NOS, 



00001 
00002 
00003 
00004 
0000$ 
00006 
00007 
OOOOB 
00009 
OOOIO 
00011 
00012 
00013 
00014 
OOOIS 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
00025 
00026 
00027 
00026 
00029 
00030 
00031 
00032 
00033 
00034 
00039 
00036 
00037 
00038 
00039 



010010 
010020 
010030 
010040 
OlOOSO 
OlOOSl 
010052 
010053 
010060 
010070 
010080 
010090 
010091 
010092 
010095 
010096 
010200 
010210 
010220 
010230 
010240 
010250 
020010 
020020 
020030 
020040 
020050 
020060 
020070 
020080 
020090 
020200 
020210 
020220 
020230 
O2o24o 
02o25o 
020300 
030010 



IDENTIFICATION DIVISION. 

PROGRAM-ID. LOASEG. 

AUTHOR. 6E0RGE A RUDOLPH. 

PATE-WRITTEN, MAY 1969, 

INSTALLATION. S E - PHOENIX, 

REMARKS. THIS IS THE LOAN SEGMENT WHICH IS CALLED BY 

THE MAIN PROGRAM SNOOPY TO CREATE AND STOoE 

LOAN-REC RECORDS. 
ENVIRONMENT DIVISION. 
CONFiauRATION SECTION. 
SOURCE-COMPUTER. GE-635. 
OBJBCT-eOMPUTER. aE-635, 
SPECIAL-NAMES. 

GETIME IS TODAYS-DATE. 

BLOeK 10 IS CCBLOXK, 

BLOBK 20 IS ENTRY«REC THRU LOAN-REC. 
INPUT-OUTPUT SECTION. 
riLE-CONTROL. 

SELECT CARD-READER ASSIGN TO CR FOR CARDS. 

SELECT IDS TEST-FILE ASSIGN TO TF. 
:-0-CONTROL. 

APPLY SYSTEM STANDARD FORMAT ON CARD-READ»R. 
DATA DIVISION. 
FILE SECTION. 
FO CARD-READER 

LABEL RECORDS ARE STANDARD 

DATA RECORD IS CARD-IN, 

CARB-IN, 



01 



02 



02 
02 
02 
02 
02 



PICTURE XX. 
VALUE "LO". 
VALUE "SA". 
VALUE "CK". 

PICTURE 9(61, 

PICTURE 9(61. 

PICTURE X(25). 

PICTURE 9(10)1/99. 

PICTURE X(3l). 



ACCT-TYPE 

88 LOAN-AOCT 

88 SAVE-ACCT 

88 CHEcK-ACCT 

CUST-No-IN 

ACCT-NO-IN 

CUST-NAME-IN 

AMOUNT-IN 

FILLER 
WORKlNG-STORASE SECTION, 
IDS SECTION, 

01 CCBLOXK . 

02 DIRECT-REFERENCE SIZE IS 8 USAGE IS OOmPuTATIONAL-1 
SYNCHRONIZED RIGHT. 

02 FIRST-REFERENCE SIZE IS 8 USAGE IS COMBUTATI ONAL-1 

SYNCHRONIZED RIGHT. 

02 LAST-REFERENCE SIZE IS 8 USAGE IS COMPUTATIONAL-! 

SYNCHRONIZED RIGHT. 

02 RECORD-TYPE SIZE IS 4 USAGE IS COMPUTATIONAL-1 

SYNCHRONIZED RIGHT. 

02 REC-FILE SIZE IS 6 CLASS IS ALPHANUMBRtC 

VALUE IS "OOOOtF", 



86224 01 02-05-70 14.836 GE600 INTEGRATED STORE TRANSLATOR ISDt-Z CHQOO 
IDS ALTER NOS. 

02 ERROR-REFERENCE SIZE IS 3- CLASS IS ALPuANUMERIC 
SYNCHRONIZED RI9HT. 

00040 030020 MO TEST-FILE 

00041 030030 PAGE CONTAINS 1»20 CHARACTERS 

00042 030040 FILE CONTAINS 100 PAGSS, 

00043 030050 01 ENTRY-REC 

00044 030060 TYPE IS 010 

00045 030070 RETRIEVAL VI* CALC CHAIN 

00046 030080 PAGE-RANGE IS 1 TO 1. 

00047 O3O09O 02 ENTRY-FIELD PICTURE »(6l. 
000^8 O3o2o0 98 CALC CHAIN DETAIL 

00049 030210 RANDOMIZE ON ENTRr-FIELD, 

00050 030230 98 CUST-NO-CHN CHAIN MASTER 

00051 030240 CHAIN-ORDIR IS SORTED, 

00052 030250 01 CUST-NO-REC 

00053 030260 TYPE IS 020 

00054 030270 RETRIEVAL VU CUST-NO-CHN CHAIN. 

00055 030290 02 CUST-NO-DSU PICTURE 9(61. 
OOO'S 0*0300 02 CUST-NAMl-OSU PICTURS X(24) 

00057 031010 98 CUST-NO-CHIvi CHAIN DETAIL 

00058 031020 DUPLICATES NOT ALLOWED 

00059 031030 ASCENDIN8 KEY IS CUST-NO-DSU 

00060 031040 SELECT CURRENT MASTER. 

00061 031090 96 CHECK-CHN CHAIN MASTER 

00062 031060 CHAIN-QRDBR IS FUST. 

00063 031070 98 SAVE-CMN CHAIN MASTER 

00064 031080 CHAIN-ORDER II FIRST. 

00065 O31O90 98 LOAN-CHN CHAIN MASTER 

00066 031200 CHAIN-ORDER IS FIRST, 

00067 031210 01 CHECK-REC 

00068 031220 TYPE IS 021 

00069 031230 RETRIEVAL VIA CHECK-CHN CHAIN, 

00070 031250 02 CUST-NO-CK PICTURE 9(6), 

00071 o3l26o 02 ACCT-NO-CK PICTURE 9(6), 

00072 031270 02 AHOUNT-CK PICTURE S9(10<V99, 

00073 031280 98 CHECK-CHN CHAIN DITAIL 

00074 031290 SELECT CURRENT MASTER, 

00075 032010 01 SAVE-REC 

00076 032020 TYPB IS 022 

00077 032030 RETRIEVAL VU SAVE-CHM CHAIN, 

00078 032050 02 CUST-NO-S* PICTURE 9(6). 

00079 o320*0 02 ACCT-NO-SA PICTURE 9(6), 

00080 032070 02 AMOUNT-8* PICTURE S9(l0(V99, 

00081 032080 98 S*VE-CHN CHAIN DET*IL 
O0OB2 032210 SELECT CURRENT MASTER, 

00083 032220 01 LOAN-REC 

00084 032230 TYPE IS 023 

00085 032240 RETRIEVAL VIA LOAN-CHN CHAIN, 

00086 032260 02 CUST-NO-LO PICTURE 9(6), 

00087 032270 02 ACCT-NQ-LO PICTURE 9(6). 



00 



to 

OQ 
00 



86225 01 02-05-70 14.809 OE600 INTEGRATED STORE TRANSLATOR ISDL-! CHGOO 



IDS ALTER NOS, 



PICTURE S9(lOiV99. 



00086 032260 02 AMOUNT-LO 

000*9 032290 98 LOAN-CHN CHAIN DETAIL 

00090 032320 SELECT CURRENT MASTER. 

00091 040010 PROCEDURE DIVISION. 

00092 041130 lOO-LOAN-PARA. 

00093 041150 MOVE CUST-NO-IN TO CUST-NO-LO. 

00094 041160 MOVE ACCT-NO-IN TO ACCT-NO-LO. 

00095 041170 MOVE AMOUNT-IN TO AMOUNT-LO. 

00096 041180 ENTER IDS- 

00097 041190 STORE LOAN-REC RECORD 

00098 O41200 IF ERROR 00 TO 130-STORE-LO-ERR , 

00099 041210 GO TO 2O0-CALL-LO-END. 

00100 043130 i30-STOIE-LO-ER». 

00101 043140 DISPLAY "STORE ERROR". 

00102 043150 DISPLAY "LOAN RECORD", 

00103 0431*0 200-CALL-LO-END. 

00104 043190 exiT, 

IDS-STRUCTURE SECTION. 
ENTER GMAP . 

PMC ON 

BLOCK .IDS., 
RD0641 lORD 023.000033. OiO.OtOOOOOOt 

ETC RDO»41.RD0645.RD0643iOOOO.RD6a7.1, 

ETC 000000. 000000<LOAN-REC 
RD0645 ,(DD 023> lO.O, O.lili 

ETC l,RDO»41.RD0641,RD4«09,RD4609,Rn064S. 

ETC 0029iOOOOiOgDOi 

ETC LOAN-CHN 

RD0643 ,»FD 0,OiODOOH.0006irC4»10.RD0644, 

ETC RD0*43,RD461O. 

ETC ACCT-NO-LO 
R00644 ,gro 3, Q. OOOOlT, 0012>rc6209 •RD0t42, 

ETC RD0>44,RD&209> 
ETC AMOUNT-LO 
RB0642 ,|F0 0.0>000005,0006.rcil53,RD0641, 

ETC RD0»42.RD1H3, 

ETC CUST-NO-LO 

RD6273 ,SRD 022. 000033, OiO.OrOOOOOO. 

ETC RD627S.RD6277.Rr6279.0000.Rni»«». 

ETC O0OOOO.0DO0O04SAVE-REC 

RD6277 ,«DD 022, 10, 0,0, 111. 

ETC l,RD6273,RD»273»RD5889,RD5889,Rn6277, 

ETC 0029>0000,OQOO. 

Ere SAVE-CHM 

R06275 ,8FD 0, 0, 000011, 0006, FC7745, RD6276, 

ETC RD6275.RD774S. 

ETC ACCT-NO-SA 

RD6276 ,QFD J.Oi000017,0012.fC3137,RD6274, 

ETC RD6276,RD3lJ7, 

ETC AMOUNT-SA 



86226 02 02-06-70 00.02/ 

ORIGIN 053069 ENTRY LOCATION ENTRY LOCATION 



ENTRY LOflATION ENTRY LOCATION 



PAQE 

ENTRY LOCATION 



056570 C20>70 

blOck COmmON 

054560 020570 

Block common 



SU8PR08RAMS INCLUDED IN DECK. 



s 
s 


OPTION 

USE 

056570 

056540 

054572 

054346 

051614 


FORTRAN 
.OMAX/1/, 


.QAREA/1577('..QMIN/t/ 


02o"' 

C.LOIN 
.lUS.. 

CR 


C21 
SNOOPY 


056534 

054573 CSNOO 016524 

056534 CIO 014336 



ENTABC 055232 
C20 056540 



053060 



051540 


110260 


.SETU. 


051545 






047322 


102969 


•FRDD. 


051024 


•FHRD. 


050756 






.FKIL. 


051061 


.FRTN. 


951060 


047260 


110266 


.FEOF. 


047260 






047122 
046526 


073069 


.FSLEW 


047122 






110266 


.FOPEN 


046532 


EXIT 


046736 






.FXOP. 


046721 


.FGTFB 


04653* 


045244 


102969 


fxem 


046047 


.FXEM. 


045244 






FXOVCK 


046127 


FXALT 


046143 






•FXSWl 


046034 


.FXSW2 


046036 


045006 


110266 


.FIDO. 


045122 






044670 


110266 


LINK 


044700 


LLINK 


044676 


043440 


073069 


.QOBJG 


043440 


H5.13B 


044655 


041412 


062669 


.OOPEn 


04141J 


.OTABl 


043344 


BLOCK COMMON 


.OMAX 


061776 


• QHIN 


056722 


041322 


073069 


.aCHN 


041322 


H5,l«6 


041405 


041254 


073069 


>OGET 


041254 


H5ill2 


041315 


040614 


073069 


.OSTOR 


040614 


H5,127 


041236 


040472 


073069 


.QMOVE 


040472 


H5,ieo 


040607 


037436 


073069 


•QTLNK 


037436 


.OTALY 


037704 


037420 


110266 


.QUCCB 


037420 


H5,13l 


037433 


037364 


110268 


.asDsw 


037364 


HB,126 


037414 


036770 


080769 


.QMNO 


036770 


h5,119 


037355 


036410 


0^3069 


• QASC 


036410 


HB.lt2 


036743 


036234 


073069 


■QCALC 


036234 


iQCALl 


036372 


035772 


073069 


lOGDET 


035772 


HSilll 


036227 


035734 


110266 


.QSYN 


035734 


H5,128 


035766 


035654 


110266 


.OUPDC 


035654 


H5,134 


035731 


035630 


110266 


.QAUTH 


035630 


H5,ig3 


035651 


035362 


073069 


.OFWD 


035362 


HS.llO 


035623 


035160 


073069 


.OLNKl 


03S344 


.0LNK5 


035345 


034776 


073069 


.QUOCH 


034/76 


H$,133 


035152 


034706 


110266 


.QRUND 


034706 


H5.125 


034770 


034614 


110268 


.QIYPX 


034614 


H5.130 


034702 


034500 


073069 


.QADJU 


034500 


.QINSM 


034607 



SUBPROGRAMS OBTAINED FROM SYSTEM LIBRARY, 



•FPRN. 0J0756 
.FRCD, 011024 



.FEXIT 046736 
.FJOV, 046530 
,FXMC. 046032 
FXDV 046440 
.FXSM3 046040 

IDUINK 044721 

.OTABZ 04S37S 



H5.129 040461 



H5.105 03*404 



.9LSW 035353 



M5.101 034611 



.FPUN. 050792 
.DBCNV 051073 



.FBAD, 047105 

ANYERR 0461S5 
FXFDV 046436 
ERRLK 0461*3 

LENTRY 0*^671 

H9,122 0434Z6 



.FCNV. 047647 
.BDCNV 091*14 



■FBFTB 047106 

FXOPT 046066 
FXCODE 046046 
.FLTPR 046161 



iQDLNK 0351*0 



MS. 108 035354 



00 



O 



86226 02 02-06-70 0U.02' 



ORISIN 0J3069 



ENTRY LOCATION 



ENTRY LOCATION 



034262 


073069 


034222 


110266 


034010 


073069 


033344 


073069 


03217Z 


073069 


031760 


11026B 


031672 


110266 


031S72 


073069 


031266 


073069 


031210 


073069 


031036 


073069 


030554 


110268 


030344 


073069 



027462 073069 



026264 


110268 


024712 


073069 


024702 


073069 


024440 


102969 


024426 


102969 


024340 


110268 


023756 


073069 


023456 


110266 


023310 


110268 


023132 


073069 


023050 


110266 


022402 


110266 


022370 


110266 


022362 


110266 


022244 


110266 


022166 


110266 


022132 


110268 


022012 


110266 


021732 


110266 



• QrtRAC 
■QPACK 

• QUIT 
•OClOS 
.QlilC 
.QINV2 
.OLAR 
•QINVl 
.QINV3 
iQlNV4 
.OMAPl 

,a>^TAB 

.QIOS 

M5.165 

.QMKA 

.QIPOS 

0UTC8 

,IPSF 

.INVSr 

.OEMTY 

.QCURT 

.QSTST 

,QCHST 

H5.165 

,auiF 

.QVFY4 

.oacD 

.QDIRF 

.aSFD 

,OSTA 

.CNTRY 

.CMPSH 

■.FICB 

•CUATE 

.CMSTK 

iCGOPN 

.COSMR 

.COSYS 

,C1C0N 

.COBUF 

■CNFXA 

■CfcDO? 

,CED05 

.CERPL 

.CESSN 

,CEITL 

iCERSN 

.CETLS 

,CEDEC 

,CE(3Ul 



034262 
034222 
034010 
033344 
032172 
031760 
031672 
031S72 
031266 
031210 
031036 
030554 
030367 
0305SO 
027511 
027513 
027631 
027472 
027530 
027525 
027534 
027544 
027570 
030340 
026264 
027121 
024712 
025116 
025672 
024702 
024530 
024456 
02467S 
024434 
024341 
023760 
023457 
023312 
02313S 
023076 
022414 
022371 
022363 
022249 
022167 
022134 
022013 
021734 
022005 
021736 



H5.121 
H5.t23 
.QUITX 
HS.107 

..ori.SH 

H5.160 
.SLOCK 
H5.1S9 
H$,161 
H9.162 
H9,163 
.QTAB3 
.QMRIT 

.OIRBA 

,OFOP 

OUTFD 

.IJRNL 

,QBWA 

.QDBQS 

.OOPSW 

.QOAST 

.QHDST 

.aUTFl 

,OVFY« 

.OCLR 

,QHCH 

,QDIR9 

.QSTAl 

.CMXIT 

.CMPOP 

.CTALY 
.CMSTE 
.CTEOF 



034473 
034297 
034203 
034004 
033130 
032164 
031707 
031666 
031564 
031262 
031209 
030762 
030344 

027514 
Q27607 
027620 
027504 
027516 
027921 
027539 
027550 
027574 

026264 
027442 
024749 
026047 
029190 
024702 
024943 
024467 

024427 
024424 
024247 



.CITYP 023133 
.CLINE 023071 
,CNFKB 022661 



.CEGET 02214O 

.CETSS 022127 

,:eSTL 021734 

.CBCMA 022006 

.CNQU2 021737 



ENTRY UOOATION 

.QUITY 014067 
.QSBEF 0S3222 
,QRLS 031733 



H$.164 

•OREAD 

.QAVAL 
.QPMLV 
.OIDCW 
.QSICT 

.QLCCB 
,QCDSM 
■ ONFN 
.OGCST 
.QMFST 

,QUTF2 
•aVFYI 

.acsM 

.QMEX 
H5,194 

.0STA2 
■CMSER 
,CMUST 



0)1032 



.CTMPO 014430 
.CIOER 014311 



.COCBF 013266 
,CIBUF 0»3092 

•CNFXl Ot2404 



.CEPVW 012163 

.CETSN 0*2044 

.CERTL 011735 

.CESSW 0J1776 

,CE0U2 0*1737 



ENTRY LOCATION 

H5,132 034216 
iQSEMT 032676 
H5,152 031799 



030353 


.ORDB 


030362 


0*7531 


.QIREF 


027511 


0*7610 


.ORELV 


027611 

027917 


0*7519 


,FINV 


0*7517 


,Q»CT 


027920 


0*7522 


lOvECT 


027927 


0*7526 


.QCHEC 


0275J2 


0*7536 


,QB*RG 


027941 


0*7554 


,QGDST 


027560 


0*7600 


.QDLST 


027604 


Win 


,QUTF3 


026400 
0274*3 


H9.14S 


0*4765 


.ODIR 


025022 


0*6103 


,QHVD 


026193 


0)6256 






0*4704 


M5,157 


024706 


0*4456 


.GHENT 


024441 


0*4505 


.CMUET 


024515 



.CTMPl 
.CIOEI 



0*4432 
024330 



.COSIZ 023244 



ENTRY LOCATION 



H5.104 033136 



■QWAIT 0S036S 



.OINIT 

.OERTB 

.EINV 

.OMBUF 

.QCBUF 

.OCURD 

.QICTR 

•QSEST 

.QECAC 



0*7512 
0*7613 
027940 
027923 
0*79*4 
0*7933 
0*794* 
0*7964 
0*7612 



,QVFY 0*6^1* 

.ODIRC 0*5652 
,QPB< 0*6177 



.CMRET 0*4479 
.CMUEX 0*4922 

.C1O20 0*4«34 



.CXXXX 0*3136 



.CEDLS 022000 
(CNNUM 021736 
,CEZST 021740 



.CECHR 0*2001 
.CNOUl 0*1736 
,CENOP 021741 



86226 02 02-06-70 
ORIBIN 0;3069 



00.02/ 



ENTRY LOCATION ENTRr LOCATION ENTRY LOCATION ENTRY LOCATION ENTRY LDCAtlON 







.CESAV 


021742 


•CEOPS 


021777 














021726 


110266 


iCMEND 


021726 


















021676 


102969 


.CCCCC 


021717 


xt06a 


021720 


'<1091 


0>1721 


X1095 


021722 


■CTBES 


011712 






BEGIN 


021712 


iCTCQR 


021713 


CORECT 


0tl713 


.CTCMT 


021714 


xcmnt 


021714 






.CTDMP 


021719 


XCUMP 


021719 


.CTIOM 


0»1716 


X4000 


021716 


tCTEND 


021677 






xxeno 


021714 


.CTFIN 


021677 


XTMIII 


081677 


iCQUIT 


021677 






021604 


110268 


.GMRIT 


021604 


•GAHRI 


921604 


MRITE 


011604 










021S10 


110268 


.GREAD 


021510 


.GAREA 


021510 


READ 


011510 










021426 


110268 


.BWAIT 


021426 


.6AMAI 


021426 


WAIT 


011426 










021332 


110268 


.GSIOT 


021332 


SETOUT 


021332 














021302 


110266 


.asTiN 


021302 


SETIN 


021302 














021026 


072569 


■GEPRN 


021026 


EPRINT 


D21026 














020S40 


110268 


.GPRNT 


020540 


.GAPRN 


020540 


PRT004 


020575 


PRT024 


020717 


PRT031 


020736 


020454 


110268 


PRT032 
.GIOPG 


02074J 

020454 


PRT035 
IOP021 


0207S2 
0205J0 


PRT051 
IOP024 


0*0770 
010533 


PRT002 


020572 


PRINT 


020540 


020404 


073069 


.GWTRC 


020404 


.GAWTR 


020404 


MTREC 


010404 










020270 


110268 


.GEDJT 


020270 


.6G062 


0203t3 


.GE063 


0*0364 


.GE064 


020365 


.GE065 


020367 






.GE066 


020370 


.GB067 


020371 


.GAEDI 


010270 


.GE0*8 


020372 


.GE069 


020373 


017562 


073069 


,GE071 
.QGTBK 
.GAGET 


020374 

017562 
017S64 


,GE072 

GETBK 


020375 
0l79t£ 


EDATE 
•GGET 


010376 
017564 


ETIME 
GET 


020377 
017564 


lOEDIT 
.GAGTB 


020270 
017962 


017554 


073069 


•QOPNR 


017554 


.GCLSR 


017554 


.GGETR 


017554 


.GPUTR 


017554 






017040 


073069 


.GCOPY 


017040 


COPY 


017040 


.GPTBK 


017O43 


PUTBK 


017043 


.QPUT 


017046 


016742 


110268 


PUT 
.GPIS2 


017046 
016742 


.GACOP 
.GAPTS 


017040 
016742 


•GAPTB 
PUTSZ 


017043 
016742 


.GAPUT 


017O46 


.GFR67 


017531 


016202 


073069 


.GOPEN 


016202 


.GAOPE 


016202 


OPEN 


016202 










015530 


0'3069 


.GCLSE 

Close 


015530 
015530 


•GACLS 


015530 


.GR1»5 


015634 


1GRI86 


015725 


.GR17B 


015641 


015S12 


11026B 


•GBNRY 


015512 


















019412 


073069 


.grlse 


015412 


.GARLS 


015412 


RELSE 


015412 










015220 


110268 


,GR200 


015220 


















015172 


110266 


iGBCO 


015172 


















015114 


110266 


,GR225 


015114 


















015042 


110268 


.GR250 


015042 


















014550 


073069 


■GR275 


014550 


















014400 
014274 


110268 
110266 


.GH377 
.GR980 
,GR»99 


014434 
014274 
014304 


.GRjes 

.GR979 


014373 
014372 


.GR375 
.GR99X 


mm 


.GR37X 
.GR984 


014453 
014336 


■GR3tO 
.GR9S9 


014»73 
014372 


014214 


110266 


.GR960 


D14Z14 


















013476 
013474 


110266 
110268 


.QlNHD 
.GOVRL 
.GlNlD 


013503 
013504 
013474 


.GOUTH 
•GLREA 


013502 
013562 


.GINTL 
.GRCVY 


013501 
013476 


.GOUTL 


O1350O 


.GUSNH 


013#77 


013442 


110266 


.GR990 


013442 


.GR991 


013463 


19auQ5 


013470 











ALLOCATED CORE 

OBJECT PRD6RAH 

RELOCATABLE 

S LINK 



RANGE SIZE 

000000 THRU 061777 06(000 



013440 THRU 061777 



041340 



LINKAA 



1^ 






86226 02 02-06-70 
□"IGIN 0S3069 



00,02/ 

entrv location entry location Entry location 
subprograms included in deck. 



ENTRY LOCATION ENTRY LOCATION 



•*• NON FATAL ERROR • C.LDIN LOADED PREVIOUSLY 
013320 020570 CHKSEG 013333 C.CHKS 0134J7 
SLOCK COMMON ,IDS.. 054346 ClO 054336 



C20 



0B654O 



CR 



051614 



SUBPROGRAMS OBTAINED fOM SYSTEM LIBRARY, 



Allocated core 

OBjtCT PHOBRAh 

hElocatable 
••• non fatal error • missing routine 
••• non fatal error • missing routine 
••> mon fatal erroh » missing routime 

S LINk 



RANGE 
000000 THRU 061777 

013330 THRU 061777 

,CFICB 

lOASEG 

SAVSEG 

linkbb.linkaa 



SIZE 
061000 

04*460 



SUbPROGHaWS INjLUDED IN DEC*<, 



»•« NQN FATAL ERROR • C.LDIN LQADE 
013320 020570 SAVSEG 01333 



BLOCK COMMON 



ilDS, 



PREVIOUSLY ..,.,. 

C.SAVS 013427 

094346 ClO 054336 



C20 



OS6540 



CR 



051614 



SUgPROGHAMS OBTAINED FRQM SYSTEM LIBRARY. 



ALLOCATED CORE 
OBJECT PROQRAM 
RELOCATABLE 
••• NON FATAL ERROR • MISSING ROUTINE 
••• NON FATAL ERROR • MISSING ROUTINE 

S LINK 



RANGE 
000000 THRU 061777 

013320 THRU 061777 

.cncB 

LOASES 
LINKCCLINKBB 



SIZE 

061000 



046460 



SUBPR0GK»MS INCLUDED IN DECK. 

>•* NON FATAL ERROR • C.LDIN LOADED PREVIOUSLY 
013320 020570 LOASEG 013333 C.LOAS 013426 
BLOCK COMMON .IBS.. 054346 CIO 054336 



C20 



056540 



CR 



051614 



SU8PH0BKAMS OBTAINED FROM SYSTEM LIBRARY. 

RANGE SIZE 

ALLOCATED CORE 000000 THRU 061777 062000 



862Z6 02 02-06-70 0U.02/ 

DMISIN 0530S9 ENTRY LOCATION ENTRY LOCATION 



»•• NON FATAL ERROR 



OBJECT PROGRAM 
RELOCATABLE 
MISSING ROUTINE 
J DISC H«,X2S,»R 
S DISC TF,xlS,»R 
S DATA ,0 
» SYSOUT PR 
S DATA CR 

FC8 AND BUFFEf SPACE 



01J320 THRO 061777 
CFICB 



ENTRY LOCATION 
04*460 



ENTRY LOCATION 



TEMPORARY MASS STORAGE FILE 
T5MP0RAHY I-P-S DATA FILE FOR DIRECTIVES 
ASSIGN PRINTER TO OUTPUT MEDIA CONVERSION 
TEMPORARY FILE FOR CARD INPUT 



ENTRY LOCATION 



AVAILABLE 000101 THRU 013315 01S215 
HLE CTRL BlKS 013166 THRU 013316 000131 
MAXIMUM BUFFER SPACE REOUIRED 001200 

2lK. IS THE MINIMUM MEMORY NEEDED TO LOAD THIS ACTIVITY WITH ALL FIlES OPEN 

EXECUTION PKOGRAM ENTERED AT 056570 

THERE WERE 000009 WARNING FLAGS IN THE ABOVS LOAD 






to 



CUSTOMER NUI-IBERS AND ACCOUNTS STORED ON DATA FILE 

2-6-70 



CUSTOMER NUMBER 
000123 

000235 
001100 

004444 
055555 
123456 
666111 



TYPE OF ACCOUNT 

CHECKING 

SAVINGS 

LOAN 

CHECKING 

SAVINGS 
SAVINGS 

LOAN 

CHECKING 

LOAN 

CHECKING 



ACCOUNT NO 

003302 
000022 
002301 

024501 

000501 
002403 

000302 

000904 

000703 

005503 



AMOUNT 



COBOL Program Output 

SNUMB = 86 226, ACTIVITY # = 02, REPORT CODE =52, RECORD COUNT 

NUI4BER OF CHECKING ACCOUNT RECORDS READ = 4 
NUMBER OF LOAN RECORDS READ = 3 
NUMBER OF SAVING ACCOUNT RECORDS READ = 3 
TOTAL NUMBER OF RECORDS READ = 10 



.74 
.00 
.10 

145.71 







.09 
.01 






.00 


,987 


,654 


.32 




10 


.00 




5 


.83 



= 00004 



FORTRAN Program Output 



Appendix D. Primary Subroutines 



Primary subroutines are those subroutines which are called directly as a 

result of an I-D-S verb. The primary subroutine then calls other 

subroutines to perform the function. The following is a list of the 
I-D-S verbs and the corresponding primary subroutine which is called as 
a result of the verb. 

I-D-S Verb Primary Subroutines 

CLOSE .QCLOS 

DELETE .QDLTE 

HEAD . QHEAD 

MODIFY .QMDFY 

MOVE , QMOVE 

OPEN .QOPEN 

RETRIEVE .QGET 

RETRIEVE CURRENT .QGETC 

RETRIEVE DIRECT .QGETD 

RETRIEVE EACH .QGETE 

RETRIEVE MASTER ^ 

RETRIEVE NEXT \ .QCHN 

RETRIEVE PRIOR J 

STORE .QSTOR 
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Appendix E. Sample Deck Setups 



COMPILE AND EXECUTE PERMFILES 



The following Deck Setup will compile and execute 
using a permanent I-D-S data file. 



an I-D-S program 



16 



$ 
$ 
$ 

$ 

$ 

$ 

$ 

$ 

$ 
* ** 



I 



IDENT 

USERID 

IDS 

I-D-S SOURCE 

EXECUTE I 

PRMFL 

PRI-IFL 

PRMFL 

PRMFL 

Iendjob 



IDSOO,PERMFILE 

I DSFOURYQUAD$ DATABASE 



DECK OR COMDK 



|A1 , R/W , R , I DSFOURYQUAD$ DATABASE /QUAD 1 
IA2,R/W,R,IDSFOURYQUAD$DATABASE/QUAD02 
|A3,R/W,R,IDSFOURYQUAD$DATABASE/QUAD03 
|A4,R/W,R,IDSFOURYQUAD$DATABASE/QUAD0 4 



EOF 



I 
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EXECUTE USING TEMPORARY FILES 



The following Deck Setup will execute an I-D-S object program using 
temporary files. NOTE: The QUTU activity will initialize the database. 



16 



$ 

$ 

$ 

$ 

$ 

$ 

$ 

IDS 

IDS 

IDS 

$ 

IDS 

IDS 

IDS 

$ 

$ 

$ 

$ 

$ 

$ 

$ 

IDS 

IDS 

IDS 

$ 

***EOF 



I. 



1 1 DENT 
.PROGRAM 

{limits 

|MASS 

■ DISC 

DRUM 

'DATA 

'create 



[CREATE 
(CREATE 
I DATA 
,INIT 
,INIT 



jINIT 
lOBJECT 
II-D-S 
IDKEND 
jEXECUTE 
il4ASS 
IDISC 
I DRUM 
I DATA 
I CREATE 
I CREATE 
I CREATE 
lENDJOB 



IDSOO,TEMPFILE 

QUTU 

,24k 

A1,X1S,11R 

A2,X2S,22R 

A3,X3S,11R 

• Q 

FC/Al/,BSSZ/480/,RNG/l,120/ 

FC/A2/,BSSZ/480/,RNG/121,240/,LPP/32/ 

FC/A3/,BSSZ/480/,RNG/2 41,360/ 

I* 

FC/Al/ 

FC/A2/ 

FC/A3/ 

iOBJECT DECK 



T1,X1S,11R 
!t2,X2S,22R 
|T3,X3S,11R 

• Q 

FC/Tl/,BSSZ/480/,RNG/l,120/ 
FC/T2/,BSSZ/480/,RNG/121,240/,LPP/32/ 
iFC/T3/,BSSZ/480/,RNG/2 41,360/ 
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COMPILE AND EXECUTE USING PERMANENT AND TEMPORARY FILES 

The following Deck Setup will compile and execute an I-D-S program using 
permanent and temporary files. NOTE: The QUTU activity will reload the 
temporary file from tape. 



T 



16 



$ 

$ 

? 

$ 

$ 

IDS 

$ 

IDS 

? 



? 

$ 

? 

$ 

? 

IDS 

$ 



I 



^IDENT |IDSOO,MIXEDFILES 
luSERID |IDSFOURYQUAD$DATABASE 
PROGRAM IQUTU 
[LIMITS 1,2 4k 

'a1,X2S,22R 

Idt,x6d 

I.Q 

|FC/Al/,BSSZ/4 80/,RNG/121,240/,LPP/32/ 

|I* 

|FC/DT/,RNG/121,240/,ONFC/A1/ 
I 



'disc 
'tape 
'data 
Icreate 
I data 
I write 

iIDS 



|I-d-s source deck or comdk 



***E0F I 



[EXECUTE 

IPRMFL 

jDISC 

IPRMFL 

IPRMFL 

IDATA 

icreate 
Jendjob 



|T1,RAJ,R,IDSFOURYQUAD$DATABASE/QUAD01 
|T2,X2S,22R 

T3,R/W,R,IDSFOURYQUAD$DATABASE/QUAD0 3 

t4,r/w,r,idsfouryquad$ database /QUADO 4 
'.Q 
IfC/T2/,BSSZ/4 80/,RNG/121,240/,LPP/32/ 



PRINT A PERMANENT FILE 



The following Deck Setup is an example of a QUTU activity which prints 
permanent file. 



16 



$ 

$ 

$ 

$ 

$ 

$ 

$ 

IDS 

IDS 

$ 



1 

1 1 DENT 

iuserid 

IPROGRAM 

'limits 



PRMFL 
PRMFL 
DATA 
PRINT 



EOF 



|PRINT 
|ENDJ0B 



IDSOO, PRINT 

IDSFOURYQUAD$DATABASE 

QUTU 

,2 4k 

TF , R/W , R , I DSFOURYQUAD$ DATABASE/QUADO 1 

TG,R/W,R,IDSFOURYQUAD$DATABASE/QUAD02 

I* 

FC/TF/,RNG/1, 10/, PAGES 
FC/TG/, EMPTY 
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TRACE ENTRY 



The following Deck Setup will compile and execute an I-D-S program using 
an I-D-S Permanent File and will generate a trace entry for all calls to 
the I-D-S primary subroutines. 



8 



16 



$ 
$ 

$ 

$ 

$ 

$ 

IDS 

$ 

$ 

$ 

$ 

$ 

***EOF 



JIDS0 0,TRCEDATA 
|IDSFOURYQUAD$DATABASE 



I.QSTC 

I 

I.Q 

It RACE 

Iai,r/w,r,idsfouryquad$database/quadoi 

IA2 , R/W , R , IDSF0URYQUAD$ DATABASE /QUADO 2 
1A3 , RA^ , R , IDSFOURYQUAD $DATABASE/QUAD 3 
|A4 , R/W , R , IDSF0URYQUAD$ DATABASE/QUADO 4 



I DENT 

USERID 

IDS I 

I-D-S SOURCE DECK OR COMDK 

USE 

EXECUTE 

DATA 

OPTION 

PRl'lFL 

PRI4FL 

PRMFL 

PRMFL 

ENDJOB 



I 



EXECUTE QUTJ 



Deck Setup to execute QUTJ from the Software Library. 



8 



16 



$ 

$ 

$ 

$ 

$ 

IDS 

$ 

***EOF 



I 

IDENT IIDSOO , JOURNAL 

PROGRAM IQUTJ 
LIMITS bPTIONS 

'IN,X1D, ,1234, , JOURNAL-TAPE 

!l* 



TAPE 
DATA 
SYSTEM 

Iendjob 
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EXECUTE QUTP 



Deck Setup to execute QUTP from the Software Library, 



16 



$ 


IDENT 


IIDSOO, PICKER 


$ 


PROGRAM 


Iqutp 


$ 


'LIMITS 


[options 


$ 


'tape 


IN,X1D, ,1234, , JOURNAL-TAPE 


$ 


TAPE 


,0T,X2S 


$ 


'data 


|l* 


IDS 


'select 


|l/53607, 1/53607, B 


IDS 


ISELECT 


112/88802, 13/88802, B 


$ 


Iendjob 




***EOF 







EXECUTE QUTS 



Deck Setup for executing QUTS from the Software Library. 



1 


8 


16 


$ 


'iDENT 


1 
[lDS00,SORT 


$ 


[program 


'quts 


$ 


LIMITS 


10,17k 


$ 


[tape 


|IN,X2D 


$ 


|TAPE 


|0T,X3S, ,99999 


$ 


|TAPE 


I0U,X4S, ,99999 


$ 


INTAPE 


IS1,X5R,3 


$ 


IENDJOB 


1 


***EOF 




1 
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EXECUTE QUTI AND QUTC 



Deck Setup for executing QUTI and QUTC from the Software Library. 



16 



$ 


1 

' I DENT 


IDSOO,CALC 




$ 


'program 


QUTI 




$ 


Imass 


A1,D1S,10R 




$ 


Idata 


• Q 




IDS 


jCREATE 


FC/A1/,BSSZ/100/,RNG/1, 


100/ 


$ 


|DATA 


I* 




IDS 


[INITIAL 


1,100 




S 


(PROGRAM 


QUTC 




$ 


iLIMITS 


10,26k 




$ 


ITAPE 


A1,A1R,, , ,W0RK1 




$ 


ITAPE 


B1,B1R, , , ,W0RK2 




$ 


ITAPE 


T1,T1D, ,1234, , USER- IN 




$ 


iTAPE 


C1,C1D, , , , USER-SORTED 




$ 


INTAPE 


1S1,S1R, 3 




$ 


iMASS 


|D1,D1R,10R 




$ 


ISYSOUT 


IPI 




$ 


iDATA 


'.Q 




IDS 


ICREATE 


Ifc/di/,bssz/ioo/,rng/i, 


100/ 


$ 


'data 


II* 




IDS 


jOPTION 


IgENERATE/ , RANDA/ , RNG/1 


30000/ 


$ 


iendjob 


1 




***EOF 


1 


1 





EXECUTE QUTD 



Deck Setup for executing QUTD from the Software Library, 



16 



$ 


IDENT 


$ 


PROGRAI-1 


$ 


LIMITS 


$ 


USE RID 


$ 


PRI4FL 


$ 


PRMFL 


$ 


TAPE 


$ 


DATA 


IDS 


DUI/IP 


$ 


ENDJOB 


***E0F 





|IDS00,DUMP 

IQUTD 

OPTIONS 

'ldsfouryquad$dbase 
'tf,r/w,r,idsfouryquad$dbase/quadoi 
Itg,r/w,r,idsfouryquad$dbase/quado2 
]0t,x2s,, ,, dump-file 



I 
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EXECUTE QUTL 



Deck Setup for executing QUTL from the Software Library. 



8 



16 



? 

$ 

$ 

$ 

$ 

$ 

$ 

IDS 

$ 

IDS 

$ 

***EOF 



I 

IDENT [lDS00,LOAD 

PROGRAM QUTL 

LIMITS JOPTIONS 

MASS |A1,X1R,15R 

TAPE IIN,X2S, ,1234, , DUMP-FILE 

TAPE 'dE,X3S, , , ,DELETE-FILE 

DATA ' Q 

CREATE FC/Al/ ,BSS Z/480/ , RNG/1 , 120/ 

DATA I* 

OPTION ,PLOAD/, RNG/1, 120/, DELETE/ 

ENDJOB 



COLLECTING TYPE B STATISTICS 



Deck Setup for collecting type B statistics 
executing QUTR from the Software Library. 



the journal file and 



16 



$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 



''EOF 



IDENT 

USE RID 

USE 

OBJECT 

DKEND 

EXECUTE 

PRMFL 

TAPE 

PROGRAM 

SYSOUT 

TAPE 

TAPE 

NTAPE 

ENDJOB 



'IDSOO, STATISTICS 

]lDSFOURYQUAD$DATABASE 

I.QSTB 

I 

I 

I 

!a1 , R/W , R , IDSFOURYQUAD$ DATABASE /QUADO 1 

|JX,X1S, , , ,I-D-S- JOURNAL 

IQUTR 

IPI 

A1,X1R, , , ,I-D-S-JOURNAL 

Ib1,X2R, ,99999 

|S1,T,2 



I 



Activity 1 is the execution of an IDS program which provides for 

collection of type B information on the user-created journal file (JX 
tape) . 

Activity 2 is the execution of QUTR. 
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Appendix F. Reference Code Manipulation 



EXTRACT A PAGE NUMBER 

Procedure Division statements similar to the following may be used to 
extract a page number from a reference code. 

COMPUTE PAGE-NO = DIRECT-REFERENCE /64 . 



EXTRACT A LINE NUMBER 

Procedure Division statements similar to the following may be used to 
extract a line number from a reference code. 

a. Assume PAGE-NO was previously extracted. 

COMPUTE LINE-NO = DIRECT- REFERENCE - (PAGE-NO * 64) . 

b. Assume PAGE-NO was not previously extracted. 

COMPUTE LINE-NO = DIRECT-REFERENCE - ( (DIRECT-REFERENCE/64 ) *64 ) 

CREATE A REFERENCE CODE 

Procedure Division statements similar to the following may be used to 
create a reference code. 

a. Assume PAGE-NO has previously been initialized with the desired 
page number. 

b. Assume LINE-NO has previously been initialized with the desired 
line number . 
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COMPUTE DIRECT- REFERENCE = (PAGE-NO *6 4) + LINE-NO, 



77 LINE-NO PIC 9(2) COMP-1. 



IDS SECTION 

01 CCBLOXK, 

2 DIRECT-REFERENCE PIC 9(8) COMP-1, 
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Index 



01 

level 01 and 9 8 31 

02 

level 02 31 

03 

Slave Begin Sync Record Type 03 13 8 

3 

TYPE 3 Slave Begin Sync (SLVBGN) 141 



4 



5 



6 



9 



TYPE 4 Slave End Sync (SLVEND) 141 



TYPE 5 Before Page Image (BEFORE) 141 

Type 5 Before Page Image (BEFORE) 165 



TYPE 6 After Page Image (AFTER) 141 

Type 6 After Page Image (AFTER) 165 



TYPE 9 Statistics 141 



98 

level 01 and 98 31 

ACCESS 

concurrent access 125 

READ access mode 135 

WRITE access mode 135 

RECOVERY access mode 13 5 

ACCESSING 

ACCESSING AN I-D-S FILE 13 2 
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ACTIVITY 

File System Activity {$ FILSYS) 125 

Activity Number 142 

Page Buffer Activity Table 152 

Page Buffer Activity Table 166 

activity chain 16 6 

AFTER 

AFTER 47 

TYPE 6 After Page Image (AFTER) 141 

AFTER page images 145 

Type 6 After Page Image (AFTER) 165 

ALL 

ALL 2 38 

ALLOCATION 

Subfile Allocation 132 

subfile allocation criteria 134 

1-D-S Data File Allocation 134 

ALLOWED 

DUPLICATES NOT ALLOWED clause 82 

ALTER 

GMAP alter number 2 42 

ANALYZER/CALC 

Randomizing Analyzer/CALC Pre-Load Sort Utility 180 

AREA 

ERROR- REFERENCE communication area 5 2 

labeled common area 259 

labeled common area (.IDS...) 264 

AREAS 

ASSIGNMENT OF I-D-S BUFFER AND WORK AREAS 151 

ASCENDING 

ASCENDING RANGE KEY 5 4 

ASCENDING 75 

ASCENDING/DESCENDING 

Ascending/Descending 5 3 

ASSIGNMENT 

ASSIGNMENT OF I-D-S BUFFER AND WORK AREAS 151 

ATTRIBUTES 

attributes of an I-D-S data file 154 

AUTHORITY 

Authority 4 2 

AVAILABLE 

available line flag 245 
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BASE 

Base Page 16 8 

Data Base Load/Print Utility Routine (QUTL) 199 

BASIS 

Basis For Overlaying 257 

BCD 

BCD 23 4 

BEFORE 

BEFORE 4 7 

CHAIN-ORDER IS BEFORE 49 

TYPE 5 Before Page Image (BEFORE) 141 

BEFORE page images 145 

Type 5 Before Page Image (BEFORE) 165 
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